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GAME 

FEATURES 


8  frygtindgydende  modstandere  med  hver 
sin  kampstil. 

Bløde  kamerabevægelser  giver  flotte  total¬ 
billeder  af  kampen. 

Udmarvende  3-minutters  omgange  med 
»knock-down«  og  »knock-out«  features. 
Opvarmning  og  auto-play  sekvenser. 

K.O.  meter,  bedste  K.O.  tid,  score  og  bonus 
vises  på  skærmen. 

Ekstra  boksere  kan  loades  ind  fra  båndet. 

•  Hall  of  farne. 

•  Anbefalet  af  sværvægtscham¬ 
pion  Frank  Bruno. 
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SOFT-Check/ 

Vi  anmelder  nye 
programmer 
Commodore  64/ 

Jet  Jones 
Spectrum/ 

Bliv  tipsmillionær 
Amstr  ad/  Adventure 
Spy 

IBM/2.  Grad 
VIC  20/Race 
Commodore  64/ 

Shoot'em 
Spectrum/ Katte¬ 
st  reger 
Commodore 

64/Fhght  773 
Spectrum /Tårnspring 
Amstrad/Bib  File 
VIC  20/Hole  tnone 


34  Spectrum/Tank 

Attack 

Commodore 

64/Kalaha  Comj 

Amstrad/Rente- 

knuser 

39  Commodore 

64/Kinaskak 

40  Spectrum/Rocket 

Lander 

Spectrum/Kc 

Torpedo 
IBM/Charact 
Design 
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42 


43 

44 

46 

det  forsvundr 

48  Amstrad/Kc 

rytmer 

50  Commodore  • 

Brown 

53  James  Bond/ Konkur¬ 
renceresultatet 

Næste  nummer/ Alt 

om  det  store  fødsels¬ 
dagsnummer 

54  VIC  20/Karakter 
tegner 


Næste  nummer  af  SOFT  udkommer  d.  19.  december. 


Story 


Hvilke  spil  kommer  til  at  ligge  un¬ 
der  træet? 

-  Og  hvad  vil  du  fordrive  jule¬ 
dagene  med? 

SOFT  Special  kan  allerede  nu  løfte 
sløret  for  nogle  af  vintertidens 
bestsellers,  direkte  fra  årets  kæm¬ 
peudstilling,  The  Personal  Com¬ 
puter  World  Show  i  London  -  com¬ 
puterejernes  hovedstad.  For  selv¬ 
følgelig  havde  vi  en  korrespon¬ 
dent  med . . . 


■  Det  er  Englands  hoved¬ 
stad,  hele  Europa  valfarter 
til,  når  der  skal  studeres 
computer-nyheder.  Hvert  år 
i  september  afholdes  i  nogle 
dage  den  legendariske 
PCW-udstilling.  Helt  klart  en 
af  årets  begivenheder  for  da¬ 
tafolket.  På  linje  med  Christ- 
mas  og  National  Day. 

I  år  var  udstillingen  større 
end  nogen  sinde  før,  hvilket 
ikke  mindst  skyldtes  softwa¬ 
re.  Hovedparten  af  de  udstil¬ 
lende  firmaer  var  nemlig 
software-huse,  og  hvis  no¬ 
gen  mente,  spil  var  på  vej 
”yt",  ændrede  de  prompte 
mening  på  årets  PCW  -  den 
ottende  af  slagsen  og  med 
endnu  en  rekord:  Der  var 
mere  software  end  nogen 
sinde  før. 

Dette  sidste  har  givet  anled¬ 
ning  til  bekymring.  Arrangø¬ 
ren,  et  velanset  blad  ved 
navn  Personal  Computer 
World,  har  nemlig  bekendt¬ 
gjort,  at  messen  Ira  og  med 
1986  vil  være  lukket  for  soft¬ 
ware.  Der  vil  blot  kunne  fin¬ 


des  hardware  og  tilbehør,  for 
det  ældre  blad  -  en  seriøs  og 
business-like  grandlather  - 
mener,  software  næsten  har 
overtaget  udstillingen  (hvil¬ 
ket,  i  parentes  bemærket, 
heller  ikke  er  helt  løgn . . . 
Men  pyt,  software  er  da  ikke 
at  kimse  ad).  Nix,  siger  man, 
nul  spil.  Imidlertid  presser 
spll-producenteme  og  de 
besøgende  hårdt  på,  så  der 
er  en  chance  for  alligevel  at 
kunne  se  GAMES  på  næste 
års  PCW. 

Men  i  år  var  de  her  altså.  I 
stor  stil.  Der  var  noget  lor  en¬ 
hver  smag  og  masser  at  væl¬ 
ge  blandt  -  noget  af  det  kom¬ 
mer  endda  aldrig  til  Dan¬ 
mark,  kun  det  bedste  gør. 
Snart  sagt  alle  de  kendte 
spil-leverandører  var  samlet 
på  et  sted,  så  for  joystick- 
knækkerne  var  det  blot  at  gå 
i  gang. 

Det  var  der  også  flere,  der 
gjorde,  hvorfor  spil-firmaer¬ 
nes  popularitet  ligefrem  kun¬ 
ne  måles  på  antallet  af  ivrige 
14-årige  foran  skærmene. 


Selv  de  to  første  dage,  hvor 
messen  udelukkende  var  for¬ 
beholdt  fagfolk  og  pressen, 
så  man  flere  af  de  nålestribe¬ 
de  stå  at  rykke  i  joystickene. 
MSX-firmaeme  førte  sig  væl¬ 
digt  frem,  og  især  det 
spil-fikserede  publikum  fik 
sine  lyster  styret.  De  nye 
MSX-spil  blev  vist,  heriblandt 
mange  lækre  versioner  af 
arcade-spll,  de  nyeste  end¬ 
da.  Mest  interessant  var  dog 
det  nye  interface,  der  kunne 
koble  en  MSX  ’  -er  til  en  Com- 
pact  Disc  video-pladespiller 
med  et  storslået  resultat  til 
følge:  Grillbarernes  video¬ 
spil  a  la  "Dragon  Lair”  kun¬ 
ne  ses  på  MSX. 

US  Gold  ikke  godt 
nok  til  Enterprise 
På  Enterprise-standen  vistes 
meget  nyt,  heriblandt  en  flok 
US  Gold.  "Raid  over  Mos- 
cow’  ’ ,  ’  ’Beach  Head'  ’  og  fle¬ 
re.  Men  så  blev  det  også  ba¬ 
re  lor  meget:  US  Gold  versio¬ 
nen  al  "Bruce  Lee”  havde 
Enterprise-folkene  nemlig 


smidt  tilbage  i  hovedet  på  US 
Gold-folkene  med  påskriften 
"For  dårlig".  Man  mente, 
sagde  Kempf  fra  Enterprise, 
at  grafikken  ikke  levede  op 
til,  hvad  en  Enterprise  kunne 
præstere.  Hårde  ord  fra  fir¬ 
maet,  men  skulle  der  laves 
software,  skulle  det  også  væ¬ 
re  godt. 

Det  samme  problem  plage¬ 
de  åbenbart  også  til  en  vis 
grad  Amstrad.  De  fleste  nye 
spil  til  maskinen  var  ”con- 
versions”  eller  Amstrad- 
udgaver  al  allerede  populæ¬ 
re  udgaver  fra  Spectrum  og 
Commodore.  Mange  var 
dårligt  lavet,  og  grafikken  - 
som  på  en  Amstrad  kan  la¬ 
ves  bedre  end  begge  af  de 
førnævnte  maskiner  -  var  re¬ 
lativt  mildt  udnyttet.  Meget 
lignede  mere  Spectrum  end 
Commodore,  og  kun  et  spil 
som  f .eks.  ’  ’ Warlord’  ’  Ira  In- 
terceptor  hørte  til  de  positive 
overraskelser.  Også  "Sorce- 
ry  Plus”,  den  diskbaserede 
efterfølger  til  flotte  Sorcery, 
udmærkede  sig  ved  eminent 
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SOFT- 

mEKKA 

graiik.  Whoarw! !  -  For  slet  ik¬ 
ke  at  tale  om  de  flere  skærm¬ 
billeder. 

Et  bøh  Ira 
Melbourne 

På  en  stor  stand  havde  Mel¬ 
bourne  House,  bogudgiver 
og  firmaet  bag  både  "The 
Hobbit”  og  "Exploding 
Fist”,  kreeret  et  mini¬ 
landskab  med  uhyggelige 
lys-effekter  og  sorte  af¬ 
skærmninger.  Alt  imens  ho¬ 
lografiske  billeder  af  dødnin¬ 
gehoveder  skiftede  farve, 
kørte  en  "Ringenes  Herre” 
video.  Bøh! 

Grunden  til  postyret  var  det 
nye  spil,  "Lords  of  the 
Rings”.  Endnu  var  en  proto¬ 
type  ikke  færdig,  men  fra 
Melbourne  House  lød  det: 
"Hvis  du  troede,  the  Hobbit 
var  det  bedste  inden  lor  ad¬ 
ventures,  så  vent  til  du  ser 
dens  storslåede  fortsættel¬ 
se”.  Lord  of  the  Rings  har  al¬ 
lerede  nu  taget  programmø¬ 
rerne  over  et  år,  men  man 
lover,  det  vil  være  et  sted  un¬ 
der  juletræet. 

Ham  den  hvidskæggede- 
du-ved-nok  vil  også  kunne 
bringe  flere  Melbourne- 
nyheder.  "Asterix”  taler  for 
sig  selv  (til  Commodore  og 
Spectrum),  og  "Fighting 
Warrior’  ’  kunne  nemt  gå  hen 
og  blive  et  endnu  større  hit 
end  "The  Way  of  the  Explo- 
ding  Fist’  ’ .  Keep  an  eye  on  it, 
som  de  siger. 

I  øvrigt  oplyser  Melbourne 
House,  at  omkring  juletid  vil 
efterfølgeren  til  "Exploding 
Fist”  komme  springende: 
"The  Way  of  The  Exploding 
Fist  II”,  med  endnu  mere 
smæld  for  pengene. 

OCEANer 
af  spil 

Der  er  også  andre  nyheder, 
det  kunne  betale  sig  at  holde 
øje  med.  Nogle  af  disse  står 
der  Ocean  på,  og  ikke  uden 
grund.  Dette  firma  er  efter¬ 
hånden  blevet  et  af  Eng¬ 
lands  førende  i  branchen,  og 
dets  stand  var  da  også  en  tro 
kopi  af  US  Gold.  Af  julenyhe- 
der  fra  Ocean  kan  nævnes  to 
spil,  bygget  over  biograffilm: 


"Rambo:  First  Biood  II”  og 
"The  Never  Ending  Story”. 
Også  "Street  Hawk”, 
"Knight  Rider”  og  "Trans¬ 
formers"  er  på  vej,  ligesom 
underafdelingen  Imagine 
Software  har  lavet  Konami 
sports-spil  (dem  fra  arcaden) 
om  til  Spectrum  og  Commo¬ 
dore  udgaver.  "Kung  Fu”, 
"Tennis”,  "Hyperally”  og 
"Golf”  er  nogle  af  titlerne  i 
den  nyeste  Imagine-stald. 
Beyond  er  et  andet  firma,  der 
er  begyndt  at  røre  på  sig.  Fir¬ 
maets  salgschef,  Francis 
Lee,  udtalte  til  SOFT  Special, 
at  man  hos  Beyond  er  opsat 


på  at  vinde  en  markedsan¬ 
del  i  stil  med  US  Gold  og  Oce¬ 
an  (på  messen  kaldet  the 
Frankie  people.  Frankie  go¬ 
es  to  Ocean).  Fra  Beyond  kan 
danskerne  op  imod  decem¬ 
ber  forvente  især  "SUPER¬ 
MAN”  og  fortsættelsen  af 
"Spy  vs.  Spy”.  Denne  Iler 
kaldes  "The  Island  Caper” 
og  slår  som  forventet  num¬ 
mer  et  i  både  action  og  gra¬ 
fik. 

Og  så  det  brændende 
spørgsmål,  der  vel  efterhån¬ 
den  trænger  sig  på:  Hvad 
med  US  Gold?  I  min  kalender 
står  et  kæmpe-kryds  ud  for 


Lord  i 
herre 


navnet  og  ordene  DONT 
MISS  er  skrevet  i  rødt  med  de 
obligatoriske  fem  udråb¬ 
stegn  bagefter.  Bare  rolig,  US 
Gold  blev  IKKE  forbigået  -  de 
havde  simpelthen  for  mange 
nyheder. 

Først  og  fremmest  blev  et  par 
nye  underafdelinger  PCW- 
lanceret.  For  børn  og  barnli¬ 
ge  sjæle  kommer  en  række 
spil  under  fællestitlen 
"KIDS!”,  heriblandt  en  flok 
Donald  Duck  games.  I  den 
anden  boldgade  kommer  så 
"Transatlantic  Simultati- 
ons”:  Seriøse  strategi-  og 
krigs-spil  for  den  tænksom- 
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me  Commodore-ejer.  Og 
midt  imellem. .  .  De  vel¬ 
kendte  standard  US  Gold.  Af 
disse  nyheder  bør  især 
"Winter  Games"  fra  Epyx 
fremhæves.  Hvad  med  en 
indendørs  skitur  juleaften? 
Ud  at  cykle  med  de  skøre, 
kunne  være  en  dansk  over¬ 
sættelse  af  Activisions '  'Tour 
De  France”  spil,  der  allerede 
har  været  på  gaden  nogle 
uger.  De  nyere,  og  mere  in¬ 
teressante  spil  fra 
Ghostbusters-firmaet  omfat¬ 
ter  ’  'Hacker'  ’  (gæt  hvad  spil¬ 
let  handler  om)  og  de  to 
"Ballblazer"  og  "Rescue  on 


Fractalus",  begge  to  udvi¬ 
klet  al  Lucasfilm,  der  også 
stod  på  Star  Wars  serien  og 
special  effects. 

Endnu  mere  underligt  må 
"Little  Computer  People  Re¬ 
search  Project"  siges  at  væ¬ 
re.  I  et  lille  hus  på  skærmen 
bor  nemlig  en  lille  mand, 
som  lever  sit  helt  eget  liv.  Spi¬ 
ser,  spiller  højt  på  stereoen, 
sover,  vasker  op,  hugger 
brænde ,  vasker  sig  og  så  vi¬ 
dere  i  samme,  brogede  dur. 
"Little  Computer  People”  er 
erstatning  for  TV  s  Pause-fisk 
og  så  kan  du  endda  kommu¬ 
nikere  med  dem.  Bed  din 


mand  om  at  spille  klaver,  og 
har  han  et  i  huset,  sætter  han 
sig  -  hvis  han  er  i  godt  hu¬ 
mør,  vel  at  mærke  -  hen  og 
improviserer  over  Beethoven 
(dog  ikke  særligt  vellykket, 
men  det  læres  vel).  "Little 
Computer  People"  vinder 
ved  bekendtskab.  Fem  huer. 
Men  der  var  mere,  meget 
mere!  Alligata,  Anirog,  Ar¬ 
gus  Press  Group,  Ariolasoft 
(dem  med  en  36-skærms  Vi¬ 
deo  Wall),  Bubble  Bus,  CRL, 
Domark,  Firebird,  Intercep- 
tor,  Llamasott,  Mirrorsoft,  Sy¬ 
stem  3  og  en  overflod  af  an¬ 
dre.  De  var  der  alle  sammen; 


komplet  med  et  hav  af  nye 
software-titler.  Joystick- 
firmaerne  kan  se  lyse  tider 
imøde,  men  skal  du  ud  at  se 
på  julegaver,  bliver  valget 
svært.  Der  er  næsten  for 
meget,  der  er  godt.  Engelsk 
topkvalitet,  iblandet  lidt 
amerikanske  stænk  og  et  pist 
Transatlantic. 

Personal  Computer  World 
Show  er  software.  Lækker 
SOFTware.  Vi  vil  her  i  SOFT 
sørge  for  at  teste  det  nyeste, 
hotteste,  sejeste  fra  de  største 
firmaer,  lige  når  det  kom¬ 
mer.  Fra  Storbritannien. 

Rasmus  Kristiansen 
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QL  SPILLER  SKAK 


Sinclair  QL  har  i  hele  sin  lan¬ 
ge  levetid  manglet  gode  spil. 
ingen  tvivl  om  det.  Et  at  de 
mest  fremragende  spil  blandt 
de  8-10  stykker,  der  dog  er 
dukket  op,  er  helt  klart  skak¬ 
programmet  QL-Chess  tra 
Psion.  markedstørt  at  Sinclair. 

QL-Chess.  der  er  kåret  som 
vinder  af  World  Microcompu¬ 
ter  Chess  Championship 
1984.  indeholder  et  utal  af  fa¬ 
ciliteter.  Der  er  skakure.  hjæl¬ 
pemidler,  mulighed  for  opstil¬ 
ling  af  en  ønsket  situation  på 
skakbrædtet  og  massevis  af 
sværhedsgrader  og  kom¬ 
mandoer. 

En  iøjnefaldende  ting  ved 
QLl-Chess  er  den  utrolig  flotte 
3D-opstilling  af  skakbrædtet. 
Her  er  QL's  høje  opløsning  ud¬ 
nyttet  til  bristepunktet  med 
flotte  skygger  på  brikkerne  og 
lignende. 

Den  traditionelle  "flade"  op¬ 
stilling  af  brædtet  kan  dog 
også  vælges.  Ved  denne  op¬ 
stilling  er  der  samtidig  plads  til 
skakurene,  lister  over  kom¬ 
mandoer  og  træk  samt  diver¬ 
se  andre  oplysninger.  Alt  det¬ 
te  må  man  undvære  ved  3D- 
opstillingen. 

Kommandoer  er  der  som 
nævnt  bunkevis  af.  mere 
præcist  omkring  20  stykker. 
Der  findes  selvfølgelig  de  obli¬ 
gatoriske  HINT  og  TAKEBACK. 
som  henholdsvis  giver  spille¬ 
ren  det  sidste  træk.  Derud¬ 
over  rummer  QL-Chess  bl.a. 
mulighed  for  at  genspille  et 
helt  spil  (REPLAY),  analysere 
spillet  og  udskrive  de  træk, 
computeren  overvejer  (ANA- 


LYSIS)  og  lade  computeren 
spille  mod  sig  selv  (DEMO). 
Har  man  en  printer,  kan 
programmet  udskrive  træk¬ 
kene  efterhånden,  som  spillet 
forløber  (PRINT),  og  skulle  et 
spil  trække  i  langdrag,  kan 
du  -  naturligvis  -  gemme  og 
senere  hente  det  fra  micro- 
drive  (MDV-S). 

Kommanodne  LEVEL  bruges 
til  at  vælge  en  af  de  1 4  svær¬ 
hedsgrader.  hvor  compute¬ 
ren  har  tænketider  fra  under 
2  sekunder  til  uendelig  tid. 
Selv  på  det  laveste  niveau 
med  under  2  sekunders  tæn- 
ketid  yder  computeren  en  fin 
modstand . 

For  at  det  ikke  skal  være 
løgn.  kan  du  desuden  for¬ 
doble  antallet  af  niveauer  til 
28.  Det  gøres  med  komman¬ 
doen  EASY,  der  forbyder 
computeren  at  tænke.  MENS 
spilleren  selv  sidder  og  tæn¬ 
ker! 

Vi  er  ikke  et  øjeblik  i  tvivl  om. 
at  QL-Chess  blandt  skak¬ 
programmer  placerer  sig  helt 
i  spidsen  (hvis  ikke  forrest), 
både  når  det  gælder  bruger¬ 
venlighed.  faciliteter,  hurtig¬ 
hed  og  styrke.  Som  bekræf¬ 
telse  på  sidstnævnte  prøvede 
vi  i  øvrigt  at  lade  QL-Chess 
spille  mod  et  af  de  bedste 
skakprogrammer  til  lillebror 
Spectrum  med  så  vidt  muligt 
samme  tænketid.  Resultat: 
Spectmm  var  overlegent  ud¬ 
manøvreret  i  28  træk! 
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SPECTRUM 

HANDELSANALYSE 


■  "BIZZICOM”  er  et  lorret- 
ningskontrolsystem  for  min¬ 
dre  handlende,  der  gerne  vil 
udøve  lagerkontrol  og  foreta¬ 
ge  analyser  over  indsamlede 
data. 

Programmet  består  af  to  dele . 
Førstedelen  er  lagerkontrol¬ 
len.  hvor  der  på  en  rimelig  let 
måde  kan  indføres  forskellige 
oplysninger  som  f.eks.  inde- 
liggende  antal  af  forskellige 
varer,  priser  på  disse,  ordrer, 
skyldnere  osv. 

Del  1  er  hovedsageligt  et  godt 
kontrolsystem  til  umiddelbar 
brug  af  den  handlende.  Det 
bruges  egentlig  kun  til  opsyn 
med  lager  og  overblik  over 
eventuelle  indkøb. 

Del  2.  analysedelen,  skal  ha¬ 
ve  indloadet  de  dele  af  Del  1 , 
som  man  ønsker  behandlet. 
Derefter  kan  man  ellers  få  op¬ 
lysninger  om  profit,  tab. 
momsbetaling.  Altså  kort  sagt 
en  slags  kortsigts  analyse 
over  forretningens  økonomi¬ 
ske  holdbarhed. 

Et  program  som  "BIZZICOM” 
er  ikke  netop  Spectrum 's 
stærke  side  med  dens  lange 


load/save  tid,  men  hvis  man 
har  tålmodighed  er  ”  BIZZI¬ 
COM”  et  yderst  gedigent 
salgsanalyse  og  bogholderi¬ 
program.  Bl.a.  fordi  forfatte¬ 
ren  har  valgt  at  sikre  bruge¬ 
ren  mod  alt  for  store  tab  af  da¬ 
ta  ved  at  lave  tvungen  sav- 
ing  efter  100  indtastede  va¬ 
rer/elementer. 

Hvad  angår  kapaciteten  af 
"BIZZICOM”  skal  vi  nævne, 
at  der  i  Del  1  er  plads  til  390 
varer,  og  at  Del  2  kan  be¬ 
handle  500  varer.  For  at  kom¬ 
me  over  dette  kan  man  have 
flere  Del  1  filter,  men  så  bliver 
det  mere  besværligt. 
"BIZZICOM”  er  nok  for  småt 
og  for  langsomt  til  at  henven¬ 
de  sig  til  købmænd,  men  til 
folk  med  et  lille  varelager,  og 
til  større  butikker,  der  har  helt 
separate  lagre  som  f.eks.  øl¬ 
lagret,  er  det  tydeligvis  meget 
velegnet. 


Betjening  1 1 

Hastighed  (når  loadet)  10 
Opbygning  10 

Pris/kvalitet  10 
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BLEBABY 
BLIVER 
BORTE  b 


■  Endelig,  endelig  lindes  der 
en  hovedperson  i  et  spil,  som 
du,  kære  læser,  rigtigt  kan 
identilicere  dig  med.  Spillet 
hedder  Herbert’ s  Dummy 
Run. 

Hovedpersonen,  der  hedder 
Herbert,  er  en  styg  lille  baby, 
som  er  blevet  væk  Ira  sine 
lorældre  i  et  stormagasin.  Du 
skal  så  styre  Herbert  tilbage  til 
hans  forældre,  der  står  og 
venter  i  stormagasinets  '  ’bør- 
neathentningsrum ' ' . 

Herbert’ s  Dummy  Run  er  ef¬ 
terfølgeren  til  "Everyone's  a 
Wally".  som  vi  anmeldte  i 
AOD  nr.  5/6.  Dengang  skrev 
vi  om  Wally  og  hans  venner, 
at  de  var  med  i  en  meget  god 
og  meget  ny  type  spil. 
Mikro-Gen,  der  har  lavet  spil¬ 
lene,  er  dog  (som  de  fleste 
andre  softwarehuse)  faldet  for 
at  lave  let  ændrede  kopier  af 
deres  tidligere  bestsellere,  og 
dette  spil  er  da  også  et  pro¬ 
dukt  af  en  sådan  handling, 
selv  om  det  stadig  er  meget 
sjovt  og  underholdende. 
Grafikken  er  opbygget  fuld¬ 
stændig  som  i  forgængeren, 
men  da  der  i  Herbert’ s  Dum¬ 
my  Run  kun  figurerer  1  per¬ 
son  mod  6  i  "Everyone's  a 
Wally"  er  den  trods  alt  lidt 
dårligere  end  det  11-13,  vi 
gav  til  Wally. 

Lydsiden  er  svag.  Bortset  fra 
indledningsmelodien  høres 
der  kun  små  krr-krr  og  beep 
lyde,  når  Herbert  dummer 
sig. 

En  konklusion  på  Herbert’ s 
Dummy  Run  må  være,  at 
Mikro-Gen  på  trods  af,  at  de 
har  taget  ret  meget  fra  for¬ 
gængeren,  alligevel  har  fået 
fremtryllet  et  underholdende 
spil,  med  enkelte  nye  ting. 

I  øvrigt  er  der  en  detalje,  som 
især  du  vil  elske  .  . . ,  der  gi¬ 
ves  ikke  point,  men  vingum¬ 
mier  efter  hvor  godt  du  klarer 
dig.D 


UDVIKLING  I 
EVENTYR 

■  Skal  man  dømme  efter  an¬ 
tallet  af  adventures  på  mar¬ 
kedet,  må  de  virkelig  være 
det  helt  store  nummer.  Hvem 
mon  køber  alle  de  adventu¬ 
res,  for  hvis  det  er  dig,  så  tag 
lige  og  se  her. 

Det  kan  lade  sig  gøre.  fordi 
du  med  dette  program  kan 
skabe  dine  egne  adventures 
på  op  til  35K,  og  dermed  slip¬ 
pe  for  at  købe  adventures. 
The  Ouill  er  ikke  lige  sådan 
at  gå  til.  men  der  medfølger 
en  letforståelig  fyldig  manual 
(engelsk).  Man  har  hele  tiden 
to  hovedmenuer  at  holde  sig 
til,  og  hvis  man  begynder  at 
rode  sig  dybt  ind  i  program¬ 
met,  har  man  også  diverse 
undermenuer.  Menuerne 
minder  meget  om  hinanden. 
Nogle  af  The  Quill's  fortræffe¬ 
ligheder  er  det  indbyggede 


supersprog,  som  du  kan  ud¬ 
nytte  uden  at  have  besvær 
med  svarmeldinger  til  spille¬ 
ren.  Endvidere  er  der  mulig¬ 
hed  for  smarte  pointsystemer, 
og  de  færdige  eventyr  bliver 
meget  hurtige. 

Ønsker  man  virkelig  at  kaste 
sig  ud  i  eventyr  skriveriet,  fås 
der  også  et  program  kaldet 
"The  Illustrator"  fra  samme 
firma,  hvormed  man  kan  illu¬ 
strere  sit  eventyr  med  flotte 
farvegrafik  billeder. 

Bag  i  den  medfølgende  ma¬ 
nual  står:  Hvis  du  regner  med 
at  sælge  et  eventyr  skrevet 
med  The  Ouill,  ville  vi  være 
taknemmelige,  hvis  du  et 
sted  i  eventyret  ville  nævne, 
at  det  var  skrevet  med  '  The 
Quill".  Så  her  kunne  du  må¬ 
ske  hente  lidt  gryn. 

Betjening:  10 

Hastighed:  1 1 

Opbygning:  10 

Pris/kvalitet:  10 


Grafik: 

Lyd: 

Fængslende: 

Kvalitet/pris: 
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All  om  Data  s  Top- 25  Bttlste  over  Danmarks  mest  populære  programmer  hl 
hjemmecomputere  bygger  på  oplysninger  ha  50  computertonetmng er.  stor¬ 
magasiners  computeraldelinger  og  boghandlere  landet  over 
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Det  lader  til,  at  de  fleste  soft¬ 
warefabrikanter  beundrer 
programmet  ”Hobbit”  fra 
Melbourne  House  med  dets 
uafhængige  figurer,  der  rea¬ 
gerer,  uden  at  spilleren  be¬ 
høver  at  være  til  stede. 

I  hvert  fald  er  der  mange, 
som  er  begyndt  at  gå 
Melbourne-huset  i  bedene 
med  adventures,  der  kan  det 
samme.  1  fuld  overensstem¬ 
melse  med  dette  har  soft¬ 
warehuset  Gargoyle  games 
netop  smidt  arcade/adventu- 
respillet  ”Dun  Darach”  på 
markedet. 

Dette  adventures  handling  er 
ret  traditionelt.  Du  er  manden 
Cuchulain,  der  efter  at  have 
været  i  krig,  får  kidnappet 
din  bedste  ven  Loeg  og  så 
skal  finde  ham  i  byen  Dun 
Darach. 

Spillet  har  de  selvreagerende 
figurer  fra  Hobbitten  plus  Val- 
hallas  tegnefilmsagtige  frem¬ 
stillingsmåde,  men  desværre 
har  figurerne  ikke  nogle  spe¬ 
cielle  præg.  Bortset  fra  at  de 
bærer  på  nogle  forskellige 
ting,  og  at  nogle  af  dem  stjæ¬ 
ler. 

Figurerne  i  spillet  (ca.  1 1)  er 
også  kun  tegnet  på  3  forskel-  * 
lige  måder.  Dig  selv  plus  en 
mand  og  en  kvinde,  der  så 
hver  for  sig  symboliserer 
samtlige  mænd  og  kvinder. 
Til  spillets  ros  skal  siges,  at  selv 
om  der  kun  er  tre  sprites,  så  er 
de  meget  flot  lavet,  og  om¬ 
trent  syv  cm.  høje. 

Spillets  plot  med  at  handle  og 
sælge,  bytte  og  stjæle  er  tem¬ 
melig  ordinært  og  det  sam¬ 
me  er  målet  (finde  din  ven), 
men  alligevel  er  ”Dun  Da¬ 
rach”  et  gedigent  adventu¬ 
re,  omend  det  er  ret  ensfor¬ 
migt.  □ 

(Twilight) 

Grafik  1 0 

Lyd  (næsten  ingen) 

Action  (Ingen) 

Fængslende  8 

Pris/kvalitet  9 


I  SELSKAB  MED 
SCARFACE 


■  Et  rigtigt  gangsterarca- 
de/adventure.  serveret  med 
led  grafik,  morsom  tekst  og 
rigtig  action  .  .  .  var  det  no¬ 
get? 

Spillet  hedde:  Mugsy.  er  fra 
Melbourne  House  og  er  et  år 
gammelt,  men  på  trods  af.  at 
det  er  et  (i  denne  branche)  al¬ 
derstegent  program,  er  det  al¬ 
ligevel  sjovt  og  underholden¬ 
de. 

Du  er  gansterbossen  Mugsy, 
der  skal  prøve  at  overleve  i 
dit  distrikt,  uden  at  rage  uklar 
med  hverken  politiet  eller 
gangsterne.  Din  egen  bande 
prøver  op-  og  nedture,  alt  ef¬ 
ter  hvordan  du  handler, 
m.h.t.  køb  af  våben,  bestik¬ 
kelser  og  antallet  af  klienter 
(hæ  hæ). 

Spillet  er  bygget  op  som  en 
tegneserie  med  billeder,  der 


kommer  et  af  gangen  og 
oven  i  dem  noget  tekst. 
Billederne  er  meget  flotte.  De 
er  tegnet  med  et  tegnepro¬ 
gram  fra  Melbourne  House  - 
Melbourne  Draw. 

Teksten  er  ikke  engelsk,  men 
amerikansk  med  fed  gang¬ 
sterslang  af  den  værste  (bed¬ 
ste?)  slags.  Hvis  du  f  .eks.  bru¬ 
ger  mange  penge  på  våben, 
siger  din  næstkommande¬ 
rende:  Cripes,  Boss,  The  guys 
could  fight  a  war  with  the 
hardware  that'll  buy. 

På  den  måde  er  hele  spillet 
fyldt  op  med  den  fedeste 
slang. 

Når  et  år  er  gået,  vises  der  en 
lille  mikrofilm,  hvor  du  enten 
ser  en  restaurant  under  et 
"shoot  up"  eller  et  gangster- 
oprør  på  åben  gade. 

En  gang  imellem  når  du  ra- 


HORRIBEL 

HERMELIN 

■  Det  er  en  gåde,  et  mysterie 
og  en  fantastisk  hemmelig¬ 
hed.  Hvordan  mon  Gremlin 
Graphics  bærer  sig  ad  med 
at  lave  sådan  et  spil!  Gosh! 
Spillet  Sam  Stoat  Safebreaker 
er  simpelt  hen  selvskreven  til 
konkurrencen  om  mest  irrite¬ 
rende.  mest  fejlfyldte  og  mest 
traditionelle  spil.  med  noget 
af  den  mest  skøre  grafik,  ver¬ 
den  endnu  har  set. 

1  dette  spil  skal  du  med  Sam 


Stoat  (Hermelin)  bryde  ind  i 
fore  huse  for  at  skaffe  grunker . 
Husene  er  ens,  men  tempoet 
bliver  hurtigere  og  hurtigere 
fra  hus  til  hus.  Du  bliver  jagtet 
af  underlige  dimser  range¬ 
rende  lige  fra  affaldsbunker 
til  bygnomer!  og  udover  at 
nævne,  at  spillet  har  mange 
bugs,  er  der  ikke  mere  at  sige 


7-8 

Lyd:  6 

Action:  7 

Fængslende:  6-7 

Pris/kvalitet:  6-7 


BESVÆRLIGE 

BOGSTAVER 


■  Et  eventyr,  der  består  af  tolv 
eventyr,  som  tilsammen  ud¬ 
gør  eventyret  fra  før. 
Forvirret?  Hvorfor  dog  det. 
ovenstående  er  nemlig  fuld¬ 
kommen  korrekt. 

I  The  Runes  of  Zendos  er  må¬ 
nederne  nemlig  blevet  stjålet . 
Ja,  vi  mener  januar,  februar, 
marts  og  co.  Og  det  er  da  en 
helts  (din)  pligt  at  befri  dem. 
Det  er  den  onde  troldeskurk 
Zendos,  der  har  stjålet  dem. 
og  spærret  dem  inde  på  sit 
slot  tolv  forskellige  steder,  i 
tolv  timeglas.  Det  skal  du  nu 
ikke  være  ked,  for  ellers  hav¬ 
de  vi  ikke  fået  dette  udmær¬ 
kede  eventyr. 

For  at  få  månederne  ud  af  ti¬ 
meglassene  kræves  det,  at 
man  tyder  den  kode,  der  står 
nederst  på  hvert  timeglas.  I 
følge  omslaget  skulle  der  væ¬ 
re  hjælp  over  det  hele  i  pro¬ 


grammet  og  i  selve  omslaget, 
men  tro  nu  ikke  at  The  Runes 
of  Zendos  er  en  stor  loppet¬ 
jans  .  . 

Når  du  bevæger  dig  rundt  og 
kæmper,  spiser  og  tager  ting. 
så  illustreres  dine  handlinger 
på  den  øverste  del  af  skær¬ 
men  med  en  rimelig  grafik, 
sproget  derimod  er  på  nogle 
punkter  rædselsfuldt. 
Samtidig  med  at  programmet 
godtager  lange  sætninger 
som  "Attack  the  guard  with 
the  mighty  axe",  så  forstår 
det  ikke  engang,  at  "get"  er 
synonym  til  "take". 
Undervejs  i  spillet  kan  man 
skifte  mellem  de  tolv  eventyr 
med  at  skrive  "Adventure 
one,  two,  osv."D 
Grafik:  8 

Lyd:  (næsten  ingen) 

Fængslende:  9-10 

Pris/kvalitet:  9-10 


IlIl"  in  "t  J 

! ! i  j 

F=R 

1  J _ 1 

H-H-H-H 

III 

= 

l 

RR 

_ 1 _ I 

=i 

_ i 

R 

_ | 

R— F 

1  1  1 

— 1  r  10  i  1 

~i — i — i — i — i — i — i — i 

1  1  1  1 

n  i  i  i  i  i  i  i 

k  -i — i — i — l — l — l — l — l 

i  1  1 

i — i — i — i 

r  1  1  1  1  1  M 

l — l — 1 — l — 1 — 1 — 1 — l 

i 

— i 

i  1 

i 

i 

— 1 

n  r 

OL 


FRYGTLØS 

COWBOY 


■  Året  er  1 885  i  en  hed  ørken 
et  sted  i  Det  vilde  Vesten.  En 
gruppe  berygtede  bankrøve¬ 
re  har  sidet  sig  ned  i  nærhe¬ 
den  af  en  gammel  forladt  mi¬ 
neby  midt  inde  i  et  farligt 
indianer-territorium.  Udbyttet 
af  deres  sidste  røveri  har  de 
gemt  rundt  omkring  i  byen, 
som  konstant  hjemsøges  af 
rødhuder,  klapperslanger  og 
hungrende  gribbe,  for  ikke  at 
snakke  om  skarptskydende 
røvere,  der  passer  pd,  at  in¬ 
gen  nærmer  sig  deres  kostba¬ 
re  skatte. 


ger  rigtig  meget  uklar  med  en 
eller  anden  gruppe,  kommer 
du  ud  for  et  opgør  med  "The 
Hitman  from  Detroit",  og  sd 
gælder  parolen  "Lev  og  lad 
dø" .  Under  de  situationer  gad 
jeg  ikke  være  tilskuer.  Denne 
sektion  af  spillet  er  ren  action. 

Lydsiden  er  god  med  ma¬ 
skingeværlyd  og  melodi,  ndr 
der  altsd  er  noget  lyd.D 


Grafik:  11-13 

Lyd:  9-10 

Fængslende:  10 

Action:  9-10 

Pris/kvalitet:  10-11 


Sddan  er  situationen  i  Talent 's 
adventure  WEST  til  Sinclair 
QL.  Du  har  til  opgave  at  be¬ 
væge  dig  ind  i  minebyen, 
samle  røvernes  udbytte  og 
derefter  skaffe  oplysninger 
om,  hvordan  du  slipper  hel¬ 
skindet  gennem  ørkenen  til¬ 
bage  til  din  hjemstad.  Ved 
hjemkomsten  bliver  du  be¬ 
dømt  med  nogle  points,  som 
afhænger  af  dine  præstatio¬ 
ner  og  samtidig  udnævnes 
du  til  en  tilsvarende  rang  - 
toppen  af  karieren  er  sheriff, 
hvor  adventuren  er  løst. 


Inden  du  kommer  s 6  langt, 
har  du  imidlertid  nok  af  pro¬ 
blemer  med  at  skyde  røvere 
og  slanger,  holde  gribbene 
på  afstand  og  undvige  vilde 
indianerstammer.  Desuden 
er  du  nødt  til  at  finde  ekstra 
patroner  til  din  seksløber  og 
samle  andre  ting  -  f.eks.  dy¬ 
namit.  tændstikker,  en  flaske 
med  nitroglycerin  og  en 
skovl.  En  række  af  disse  skal 
du  nemlig  bruge  i  dit  forsøg 
på  at  komme  frem  til  skatte¬ 
ne. 

’  'WEST'  ’  er  desværre  udeluk- 


KARTOTEK 
PÅ  DANSK 


■  Kartobase  464  er  et  helt 
igennem  dansk  kartoteks 
program  til  Amstrad,  der  kan 
erhverves  på  såvel  bånd  som 
disk.  Programmet  giver  mu¬ 
lighed  for  at  oprette  kartote¬ 
ker  med  op  til  10  felter  pr. 
kort.  og  op  til  23  K  data  i  alt. 
Programmet  har  en  del  facili¬ 
teter  ud  over  de  obligatoriske: 

Ved  søgning  kan  man  vælge 
at  søge  på  et  eller  flere  be¬ 
stemte  søgeord.  Eller  man 
kan  opgive,  at  man  vil  have 
alle  de  kort  ud,  hvor  f  .eks.  sal¬ 
doen  er  negativ. 

Søgningen  er  dog  ikke  udvi¬ 
det  til  at  kunne  klare  en¬ 
ten/eller  kriterier.  Måske  ved 
vi,  at  en  eller  anden  fyr  hed¬ 
der  Hansen  til  efternavn  og 
enten  Hans  eller  Henrik  til  for¬ 
navn.  Til  gengæld  er  søgnin¬ 


gen  ligesom  sorteringen  skre¬ 
vet  i  ren  maskinkode,  så  det 
går  pænt  hurtigt. 

Sorteringen  kan  i  øvrigt  fore¬ 
tages  i  både  opadgående  og 
nedadgående  rækkefølge, 
efter  et  valgfrit  felt.  Der  er  mu¬ 
lighed  for  at  lave  et  Password 
på  ens  tophemmelige  karto¬ 
teker,  der  så  skal  indtastes 
hver  gang,  man  henter  sit 
kartotek  ind. 

Ved  printerudskrift  kan  man 
vælge  mellem  3  forskellige 
formater: 

1 :  Hvert  kort,  et  felt  pr.  linie,  ef¬ 
ter  hinanden.  2:  To  kort,  et  felt 
pr.  linie,  ved  siden  al  hinan¬ 
den.  3:  Et  kort  pr.  linie,  max.  3 
felter. 

Man  kan  enten  udskrive  hele 
kartoteket,  eller  man  kan 
give  betingelser,  som  under 
søgning,  for  hvilke  kort  der 


IB 


kende  et  tekst-eventyr.  Der  er 
på  trods  af  mulighederne  i 
QL'ens  store  hukommelse  og 
direkte  adgang  til  over  200  K 
på  Microdrive  ikke  andet 
end  et  enkelt  åbentskærms- 
billede,  som  dog  til  gengæld 
er  umådeligt  flot.  Med  hen¬ 
syn  til  forståelse  af  spillerens 
ordrer,  klarer  WEST  sig  rime¬ 
ligt  med  sine  omkring  200  ord 
og  lige  så  mange  talemåder. 


Der  er  mange  spændende 
oplevelser  at  hente  i  de  mere 
end  1 30  steder  i  spillet,  men 
nogen  egentlige  nyskabelser 
inden  for  adventures,  finder 
vi  ingen  af  WEST  er  så  at  sige 
det  klassiske  eksempel  på  et 
godt  adventureprogram,  som 
alt  i  alt  er  ganske  fornøjeligt  at 
spille.  □ 


Grafik  og  lyd:  Ingen 

Forståelse:  9 

Action:  1 1 

Fængslende:  9 

Pris/kvalitet:  9 


skal  udskrives. 

Endelig  kan  man  ændre  på 
feltteksten  og  gemme  og  hen¬ 
te  sit  kartotek  for  bånd  eller 
disk. 

Manualen,  der  følger  med  i  et 
ringbind,  består  af  24  dansk¬ 
sprogede  sider,  der  gennem¬ 
går  programmet  trin  for  trin. 
Den  største  ulempe  ved  pro¬ 
grammet  er,  at  hvert  enkelt 
felt  maximalt  kan  indeholde 
25  bogstaver,  og  det  er  ofte  for 
lidt.  Også  i  forbindelse  med 
søgning  og  printerudskrift 
mangler  programmet  lidt  fle- 
xibilitet.  PCS  kalder  dog  selv 
programmet  for  semiprofessi- 
onelt,  så  det  må  være  rime¬ 
ligt  nok,  og  til  199  kr.  for 
båndudgaven  er  program¬ 
met  da  også  anvendeligt  i 
mange  sammenhænge. □ 


Jet  Jones 


■  Dette  spil,  kaldet  Jet  Jones 
ligner  virkelig  et  købespil.  Ha¬ 
stigheden  er  stor.  og  grafikken 
god. 

Du  skal  flyve  rundt  i  torskellige 
rum,  og  skyde  onde  robotter. 
Dette  er  ikke  altid  lige  nemt, 
men  tortvivl  ikke!  Efter  hver 
skærm,  bliver  robotterne  hur¬ 
tigere  og  hurtigere.  Etter  nog¬ 
le  få  skærme,  skal  man  virke¬ 
lig  have  kontrol  over  situatio¬ 
nen  tor  ikke  at  dø. 

For  at  sikre,  at  der  ikke  sker  i 
indtastnigen,  er  der  check¬ 
sum  på  datalinier.  Checksum 
betyder,  at  programmet  selv 
tester  om  der  er  tejl  i  indtast¬ 
ningen. 

Spillet  kræver  joystick  i  port 
2.D 

Bo  Johansen 


PROGRAMI  JET  J0NCS.935 

I  POKE  3328 1 ,0 ■ POKE  33269,0 
I  PR  I  MT  "  ?  CLR  )  " 

10  FOR  J* 13872  TO  16319IREAD  QIUI-UI*0 
I POKE  J,Q INERT  J 

20  1F  UK  >21146  THEN  PRINT"?  L . BLAA )SP 
RITE  DATA  ERROR" ■ END 
30  FOR  J»49132  TO  49843IREAD  QlUMd+O 
■  POKE  J.Q1NEXT  J 

40  IF  UK  >11 1427  THEN  PR INT"? L . BLAA >M 
C  DATA  ERROR "I END 
30  POKE  33280, 0I60SUB  900 
60  006UB  800 

70  POKE  34296 ,131 SP  "2040  I  POKE  SP,248 
I POKE  SP*I ,230IP0KE  SP*2,23I 
i POKE  SP*3 ,232 

73  POKE  8P *4 ,233 1 POKE  SP*3,231 
i POKE  SP+6 ,254 l POKE  233,0 
■POKE  33261 ,100IP0KE  53248,0 
80‘ POKE  33269,61  I POKE  33283,4 
I POKE  33286, 2 l POKE  33287,1 
i POKE  53288, 7 ■ POKE  33289,7 
90  POKE  33290, 8 l POKE  33291,3 
•POKE  33292, II POKE  33293,7 
I POKE  33276,44 
100  PRINT"? CLR.CRSR  NE04 , 

SPACE  >  •ET  O  NES  I  • 

110  PRINT"? CRSR  NE03, SPACE) |AZA  100 
I  " 

120  PR IMT*<  CRSR  NED3 ,SPACE ) I ftZft  «U0 

130  PR INT*<  CRSR  NED3 ,SPACE > I AZ A  |A 
i  ■ 

140  PR INT"<  CRSR  NED3 , SPACE  > I RZ ft  O 


150  V  "53248  *  POKE  53264,6*1 
l FOR  K-V+4  TO  V«12  5TEP  2 
*  POKE  K,120lf«KT  K 
160  POKE  V  +3 ,60 1 POKE  V*5,110 

■  POKE  V *7 , 1 40 ■ POKE  V+9,170 
■POKE  V*1 1,200 

165  POKE  53277, OlPOKE  53271,0 
170  POKE  V*I,7OIF0R  J-0  TO  120  STEP 
.  1  ■  POKE  V,Jir«XT  J 
200  FOR  J-l  TO  3000INEXT 
210  REM  SCREEN  1 
220  Ml-1 IM2-0IM3-0IM4-0ILE-1 
■ OOSUB  500 
230  OOSUB  600 
240  REM  SCREEN  2 
250  Ml-1 IM2-1 ■M3-0IM4-0ILE-2 
■OOSUB  500 
260  OOSUB  600 
270  REM  SCREEN  3 
280  Ml-1 IM2-1 IM3-1 IM4-0ILE-3 
■OOSUB  500 
290  OOSUB  600 
300  REM  SCREEN  4 
310  M1-1IM2-1  IM3-HM4-1  ILE-4 
■OOSUB  500 
320  OOSUB  600 
330  REM  SCREEN  5 
340  M1-1IM2-1IM3-HM4-1ILE-S 
■OOSUB  500 
350  GOSUB  600 

360  FOR  J-l  TO  3000INEXT  J 
370  PRINT-«  CLR.HVID.SPACEIBIX-- I  I  IT 
-  I  I “ I POKE  53269,0 

380  PRINT'«  GUL,SPACE)\1SSI0N  COMPLET 
EO.  9ECT0R  7.98  CLEAREO . ■ 

380  PRINT-«  BLAA, SPACE )*LL  ROBOTS  OES 
TROYEO . ■ 

400  PRINT-«  CRSR  KE05, SPACE  10 )YOUR  SC 
ORE  IS  -<LE-1)»<  10-A>*100 
410  FOR  J-l  TO  SOOOlfCXT  J 
420  RUN  50 

500  PRINT*«  CLR, SORT)  •> 

510  FOR  J-l  TO  23IPRINT* 

I  l‘> 

■ NEXT  J 

515  IF  LE -5  TUEN  POKE  53277,60 
■GOTO  520 

516  POKE  53277,0 

520  PR  I  NT -(HOME,  CRSR  FED6  , 

SPACE32)  | <  HV ID, SPACE ) LEVEL«  CRSR  N 
ED, CRSR  VENSTRE4 > “LE 
525  PRINT'«  HOI«,CRSR  KC03, 

CRSR  H0JRE34 )FU£L ■ * 

530  POKE  52893, MI IPOKE  52994, M2 

■  POKE  52995, M31P0KE  52896, M4 

540  I  -67*«  Ml  *4  )  ♦  <  M2*8  )  ♦<  M3*  16  >  ♦<  M4*3 
2) 

550  POKE  53269, I IPOKE  254,0 
555  POKE  251, RFC« 1)410+97 

■  POKE  252  ,RM)<  1  >*7 
560  SYS  49767 

570  RETURN 
600  L-PEEK«  254 ) 

610  IF  L-0  THEN  RETURN 

620  IF  L-l  THEN  700 

630  IF  L-2  THEN  750 

640  RETURN 

700  FOR  J-l  TO  3000I(«XT 
710  PR INT*(  CLR ,HV  10  ) • ■ POKE  53269,0 
■PRINT-  YOUR  SCORE  IS  *< 

LE  - 1  >*(  IO-A  )  *  100 
720  FOR  J-l  TO  3000IÆXTIRUN  50 
750  FOR  J-l  TO  10001 NEXT 
760  PRINT-« CLR, HVID) • IPOKE  53269,0 

■  PR  INT*<  GUL  ,SPACE8  )— UEL  TOO  LOU* 
770  GOTO  700 

800  PR INT *<  CLR ,HV ID .SPACE  1 1 >— HOOSE  S 
PEEO  LEVEL  * 

810  PRINT"«  CRSR  NED.OUL, 

SPACE5  )9 )  IS  *LTO  I  )  IS  S 

•I  " 

820  PRINT*« BLAA,SPACE8)EASY 
IMPOSSIBLE* 

830  I KPUT * <  GRAA2 , CRSR  NED3 ) LEVEL  «1- 
9)  I *)A 

840  IF  A« 1  OR  A >8  THEN  800 
850  POKE  53247, Al  RETURN 
900  POKE  657, 128 IPOKE  53272,23 
910  PR  I  NT  *<  CLR,  CRSR  NEO.HVIO, 

SPACE  18  )  |  . 

915  PR  I  NT  *<  CRSR  NED  .SPACE  15  )  PRESENTS 

920  A*<  1  )-*  __ 

925  A«  2)-*  >ET  *0)CS* 


930  A*<3)-*  ~ 

935  A«4)-*«CRSR  hCD .SPACE IS )AM)  THE* 
940  A*<  5)-*<  CRSR  KEO .SPACE  12 >MYSTERY 
OF  IAZA* 

942  POKE  53281,0 

945  PRINT*«HOfC,CRSR  f«D10)* 

950  FOR  J-l  TO  5 IPOKE  646, RU)«  1  >*J4«2 
■  PRINT  AS«J)IKCXT  J 
960  GET  B«IIF  B*«>**THEN  RETURN 
970  GOTO  945 

995  REM  >*•«******«***••••••*•>*• 

996  REM  *  SPRITE  DATA  « 

997  REM  •*•*••*•*••>•»••*••••*•*• 


1000 

OATA 

0,0,0,3,240,0,6,8 

1010 

DATA 

0,6,248,0,7,120,0,23 

1020 

OATA 

120,0,51 ,240,0,48,0,0 

1030 

OATA 

55,0,0,55,255,128,55,128 

1040 

OATA 

0,1 12,0,0,87,248,0,87 

1030 

OATA 

254,0,215,254,0,144,6,0 

1060 

OATA 

240,6,0,0,6,0,40,7 

1070 

OATA 

0.84,0,0,170,0,0,2 

1080 

DATA 

0,0,0,0,15,192,0,16 

1090 

OATA 

96,0,31,96,0,30,224,0 

1  100 

OATA 

30,232,0,15,204,0,0,12 

1  1 10 

DATA 

0,0,236,1,255,236,0,1 

1  120 

DATA 

236.0,0,14,0,31 ,234,0 

1  130 

DATA 

127,234,0,127,235,0,96,9 

1  140 

OATA 

0,96,15,0,96,0,0,224 

1  130 

OATA 

20.0,0,42,0,0,85,2 

1  160 

DATA 

0,0, 0,0, 0,0, 0,0 

1  170 

OATA 

0,0, 0,0, 0,0, 0,0 

1  180 

OATA 

0,0, 0,0, 0,0, 0,0 

1  190 

OATA 

0,0,0,185,222,222,0,0 

1200 

OATA 

0,0, 0,0, 0,0, 0,0 

1210 

DATA 

0.0, 0,0, 0,0, 0,0 

1220 

OATA 

0,0, 0,0, 0,0, 0,0 

1230 

OATA 

0,0,0,0,0,0,0,191 

1240 

OATA 

0,0, 0,0, 0,0, 0,0 

1230 

OATA 

0,0, 0,0, 0,0, 0,0 

1260 

DATA 

0,0, 0,0, 0,0, 0,0 

1270 

DATA 

0,168,0,2,170,0,2,238 

1280 

DATA 

0,2,238,0,2,170,0,2 

1290 

OATA 

154,0,2,86,0,2,170,0 

1300 

OATA 

0,0, 0,0, 0,0, 0,0 

1310 

DATA 

0,0,0,0,0,0,0,119 

1320 

OATA 

O.O.O.O.O, 0,0,0 

1330 

OATA 

0,0, 0,0, 0,0, 0,0 

1340 

DATA 

0.0, 0,0, 0,0, 0,0 

1350 

DATA 

0,0,0,5,83,80,42,170 

1360 

DATA 

168,233,233,233,42,170,168 

1370 

DATA 

85,80,0,0,0,0,0,0 

1380 

DATA 

0,0, 0,0, 0,0, 0.0 

1390 

OATA 

0,0, 0,0, 0,0, 0,2 

1400 

OATA 

0,0, 0,0, 0,0, 0,0 

1410 

DATA 

0,0, 0,0, 0,0, 0,7 

1420 

OATA 

233,240,60,0,30,32,0,2 

1430 

OATA 

35,193,226,34,65,34,35,201 

1440 

OATA 

226,32,8,2,32,14,2,33 

1450 

OATA 

0,66,32 ,255 ,130,60,0,30 

1460 

DATA 

7,255,224,0,0,0,0,0 

1470 

OATA 

0,0, 0,0, 0,0, 0,0 

1480 

DATA 

0,0, 0,0, 0,0, 0,8 

1490 

OATA 

0,0,28,0,0,42,0,0 

1500 

OATA 

8, 0,0, 8, 0,0, 8,0 

1310 

OATA 

0,8,0,127,255, 252 , 255 , 255 

1520 

0AT8 

254,225,104,94,239,107,222 

227 

1330 

DATA 

107,222,239, 105,222,239. 

107,222 

1340 

OATA 

239,107,222,238,8,70,255, 

255 

1330 

OATA 

254,127,255,252,0,0,0,0 

1900 

REM 

1910  REM  •  MC  • 

1920  REM  ••*•>•*••••*•*••••«•••«>* 

2000  DATA  162,200,165,251,157,31,7, 
165 

2010  DATA  252,157,31,219.202,208,243, 
86 

2020  DATA  173,0.220,106,144,13,106, 
144 

2030  DATA  23,106,144,33,106,144,48, 
106 

2040  DATA  144,63,96,174,1,208,224,53 

2050  OATA  144,236,206,1,208,76,22,192 

2060  DATA  174,1,208,224,187,176,226, 
236 

2070  OATA  1,208,76,25,192,174,0,208 

2080  DATA  224,26,144,216,206,0.208, 
162 

2090  OATA  249,142,248,7,76,28,192,174 

2100  DATA  0,208,224,253,176,201,238,0 

2110  OATA  208,162.248,142,248,7,76,31 


2120  OATA  192,165,253,240,1,96,173, 
248 

2130  OATA  7,201,249,240,7,169,1.133 
2140  DATA  253,76,120,192,169,2,133. 
253 

2150  DATA  173,0,208,141,2,208,173,1 
2160  OATA  208,141,3,208,169,2.13,21 
2170  OATA  208,141,21,208,96,165,253. 
208 

2180  OATA  9,169,253,45,21,208,141,21 
2190  DATA  208,96,201,1,240,13,206,2 
2200  DATA  208,173,2,208,208,243,169,0 
2210  DATA  133,253,96,238,2,208,173,2 
2220  OATA  208,208,247,169,0,133,253, 
96 

2230  OATA  173,1,207,208,1,96,173,4 
2240  OATA  220,41,3,240,11,201,1,640 
2250  DATA  17,201,2,240,23,76,238,192 
2260  DATA  238,4,208,238,4,208,238,4 
2270  DATA  208,96,206,4,208,206,4,208 
2280  OATA  206,4,208,96,238,5,208,238 
2290  OATA  5,208,238,5,208,96,206,5 
2300  DATA  208,206,5,208,206,5,209,96 
2310  OATA  173,2,207,208,1,96,238,7 
2320  OATA  208,239,7,208,173,4,220,41 
2330  OATA  1,240,10,238,6,208,238,6 
2340  DATA  208,238,6,208,96,206,6,208 
2350  OATA  206,6,208,206,6,208,96,173 
2360  DATA  3,207,208,1,96,169,160,141 
2370  OATA  9,208,238,8,208,238,8,208 
2380  OATA  238,8,208,238,8,208,96.173 
2390  DATA  4,207,208,1,96,173,0,208 
2400  OATA  205,10,208,144,5,176,9.76 
2410  OATA  83,193,206,10,208,76,83,193 
2420  DATA  238,10,208,173,1,208,205,11 
2430  OATA  208,144,3,176,5,96,206,11 
2440  DATA  208,96,238,11,208,96,173.30 
2450  OATA  208,170,41,3,201,1,240,5 
2460  DATA  201,2,240,4,96,76,240,193 
2470  OATA  169,0,133,253,234,234,234, 
234 

2480  OATA  234,234,138,106,106,106, 
176,10 

2490  OATA  106,176,24,106,176,38,106, 
176 

2500  OATA  52,96,169,0,141,1,207,169 
2510  DATA  251,45,21,208,141,21,208,32 
2520  DATA  214,193,96,169,0,141,2,207 
2530  DATA  169,247,45,21,208,141,21, 
208 

2540  DATA  32,214,193,96,169,0,141,3 
2550  DATA  207,169,239,45,21,208,141, 
21 

2560  OATA  208,32,214,193,96,169,0,141 
2570  OATA  4,207,169,223,45,21,208,141 
2580  OATA  21,208,32,214,193,96,169,0 
2590  OATA  141,5,212,169,252,141,6,212 
2600  OATA  169,1,141,1,212,169,129,141 
2610  OATA  4,212,169,128,141,4,212.96 
2620  DATA  32,214,193,162,0,160,0,140 
2630  OATA  248,7,140,39,208,136,208, 
247 

2640  OATA  202,208,242,168,1,133,254, 
96 

2650  OATA  173,2,208,141,8,212,169,0 
2660  OATA  141,12,212,169,241,141,13, 
212 

2670  OATA  169,33,141,11,212,169,32, 
141 

2680  OATA  11,212,96,172,255,207,162, 
255 

2690  OATA  202,208,253,136,208,248,96, 
238 

2700  OATA  0,207,240,1,96,206,13,208 
2710  OATA  169,48,141,12,208,173,13, 
208 

2720  OATA  201,80,240,1,96,169,2,133 
2730  OATA  254,96,162,10,169,208,157,2 
2740  OATA  208,202,208,250,162,48,142, 
O 

2750  OATA  208,142,1,208,162,1,142,32 
2760  OATA  208,162,12,142,33,208,96,32 
2770  OATA  0,192,32,74,194,173,30,208 
2780  DATA  169,248,141,248,7,32,16,192 
2790  OATA  32,16,192,32,141,192,32,141 
2800  OATA  192,32,141,192,32,141,192. 
32 

2810  OATA  184,192,32,248,192,32,31, 
183 

2820  DATA  32,55,193,32,102,193,32,8 
2830  DATA  194,32,35,194,32,47,194,24 
2840  OATA  173,1,207,109,2,207,109,3 
2850  DATA  207,109,4,207,208,1,96,165 
2860  DATA  254,240,194,96,-1 
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HEMS 


smmionær 


■  Her  bringer  vi  et  lille  tips¬ 
program,  som  kører  efter  sta¬ 
tistik.  Programmet  genererer 
en  udgangsstilling  ud  fra  den 
aktuelle  stilling  plus  9  rækker, 
der  laves  ud  fra  den  første 
række. 

Når  du  starter  programmet 
første  gang,  startes  det  med 
RUN,  og  ved  restart  tastes  GO¬ 
TO  100.D 

Jens  V.  Nielsen 


HCT 

Hans  Ctu  TUayiøn 


1010  dih  k«iurl  “2",ual  "i3",yRi. 
-lø'-):  POR  N=URL  "i”  TO  URL  ”13 


i  *  **  <«  .1 « ^  o 

øl  **  *  «  ** q  ^  ^  o  ~  a 
■i  rp  ;» 

W  fi  S  >  v- v  v  w  o  u  w  f.  j 


1SBØ  LET  X-U+UOL  "86":  OO  SUB  UR 
L  "8570".  IP  H3 O URL  "3a"  TMEN  L 
ET  MH*IM2>M3) 

1505  LET  Ml  »Hl  »HH.  LET  LU  »LU  »Mil 
1600  NEXT  N 


1020  INPUT  (~?=R£T.  KRMP  NH.”]Ni  1600  NEXT  N 

"  HJEM.  :  ")  ;K* (URL  "1" ,N>  :  PRINT  1705  LET  N’H  a0  SUB  URL  '»300 

TRO  URL  "3**  -LEN  STR*  N;  N;  ";K*<  ..LET  H1-H1»(P»URL  "1")X(K»URL 


0  >  REM  ©  J.U. NIELSEN  1905 


TRO  URL  "S*; -LEN  STRS  N;  N;  "  ";K*( 

løss  IP  'k*‘(URl'  "1“  ,N,URL  "1">*”T 
••  THEN  LET  N »N  —URL  "l":  GO  TO  UR 

1030  INPUT  ("KRMP  NR.",N;”  UDE;" 
);K*(URL  "2", N> :  PRINT  K»(URL  "3 
"  ,N> 

1035  NEXT  N 

10*0  GO  SUO  URL  "800":  POR  C«U»L 
-I"  TO  URL  ” 13“ ;  POR  2 »URL  "1" 
TO  URL  "2" 

10*6  POR  X  »URL  "l"  TO  URL  "10": 
IP  K*  (2,0, X)  o"  "  THEN  NEXT  X 
1050  LET  H*-K»(Z,C,  TO  X-URL  "1" 


10  DIH  R*(URL  "3", URL  "16", URL 
"*8"):  DIH  C  S ( URL  "3", URL  "16", 
URL  "*").•  DIH  TØ  (UR L  "jø",  URL  "i 
3") 

15  LET  5 »URL  "33" 

20  FOR  P  »URL  "1"  TO  URL  "3":  P 
OR  N  »URL  "1"  TO  URL  "16":  INPLT 
(P; "  DIU.  NR.";N;"  ">;R*(F,M,  TO 


1060  GO  3UB  URL  "7000":  IP  PEJL« 
URL  "1"  THEN  INPUT  ("NYT  NRUN  KR 
MP  "  ;  C;  "  " )  ,  KØ  (2,0  :  GO  TO  URL  " 


ir,  uiu .  nH  ■  ,  r, ,  i.nsir.n,  i  u 

URL  "10">:  PRINT  R*(F,N,  TO  URL 
"10")  NEXT  N:  NEXT  P 


25  PRINT  RT  URL  "11", URL  "1 *~; 
"UENT." 

30  FOR  P=URL  "1"  TO  URL  "3" 

*0  FOR  N»URL  "1"  TO  URL  "16" 

*5  LET  C* (P, N.URL  "*"J»CHR»  N 
50  POR  Z-N  TO  URL  "16" 

55  LET  Rø (P , Z , URL  "11"  TO  ) " 
60  IP  RØ (P,N) >RØ (F,Z)  TMEN  LET 
BØ=RØ  (P,N):  LET  5*  (P  ,  N)  =R»  (F  ,Z.« 


O »Rø (P ,23 


LET  RØ  (P.Z)  »B 0 

70  NEXT  2.  NEXT  N:  NEXT  P 


100  POKE  URL  "83658", URL  "8" 
105  PRPER  URL  "7":  BORDER  URL 


MP  C; "  "),KØ(Z,C>:  GO  TO  URL  “ 

10*5" 

1066  IP  2 »URL  "1"  THEN  LET  H-N 

1067  IP  Z »URL  "8"  THEN  LET  U«N 
1063  LET  N«H 

1070  NEXT  Z.  OO  SUB  URL  ”1500" 
1060  NEXT  C:  OO  SUB  URL  "90*0": 
GO  TO  URL  "2800" 

1090  RETURN 

1800  'IP  C »URL  "*  "  OR  C  »URL  "7"  O 
R  C »URL  "10"  THEM  PRIMT 
1502  PRINT  "  " ; RØ IP ,H ,  TO  URL  "1 
0..,  ..  ";nt(pjU(  f0  URL  -lø-, 

1505  LET  Hl »URL  "0":  LET  U1»URL 
"0":  LET  N  »H :  LET  X»U»URL  "10"; 
GO  SUB  URL  "8870" :  IP  H8  «  >URL  "3 
8 "  RND  HJOURL  "38  ”  THEM  LET  Hl 
»Ha.-  LET  U1-M3 

1510  POR  n »URL  "1"  TO  URL  "16": 
IP  n «h  OR  n»U  THEN  GO  TO  URL  "16 
00" 


7”:  INK  URL  "0" 

110  GO  SUB  URL  "200" 

180  RESTORE  URL  "9020".  FOR  N-U 
RL  "1"  TO  URL  -7":  RERD  BØ:  PRIM 
T  RT  URL  "8"*N*URL  "2", URL  "1";N 

; "  "; BØ:  NEXT  N 

130  PRINT  . *•#«#****»•*•*»*• 


1|15  LET  HU »URL  "0":  LET  HH »URL 


1*0  LET  BØ »INKEY 0  „ _  „ 

T00URL  "1*0""  °R  B#>  7  ™EM  00 

160  GO  SUB  URL  BØølØØØ.  GO  TO  \» 
RL  "100"  __ 

200  CLS  :  PRINT  *•*•••*•*!£  TI 
P-65  •*#»#»»•»*»*#:  RETURN 
1005  GO  SUB  URL  "200" 


1520  IP  RØ(P,N,H*URL  "10")="  "  R 
ND  RØ(P,N,H*URL  "26") "  THEN  O 
O  TO  URL  '■!  Bøø" 

,1B?£=k5I  X»H*URL  "10";  GO  SUB  UR 

kT  SK?«*,«,”30""-  “““  t 

15*0  LET  XaM+URL  "26":  GO  SUB  UR 

fer"SS^>55>MS<>w,L  "3a"  " 

£5*8. «*(F»N,U»U»1  "lø")  =••  ~  R 

8°TS*iJSdN^SJSb  "a6">  ="  -  ™E”  o 


1710  LET  N-U:  GO  SUB  URL  "8800": 

LET  Ul-UDP/IKHIflL  "3".\ 
l®g®  JC  «1-U i  ™EN  l-ET  TØ  (URL  "1 

xi8 X  Tlmua‘-  "a*  LET  T 

1810  IP  Hl.'Ul  THEN  LET  TØ  (URL  "1 
X^L  ^•"‘■ET  TI  »URL  "80":  LET  T 

x!sl*^"^  ^-C«tE"l5#:WefeT"^ 

1630  PRINT  TØ (URL  "i", C) 

18*0  POR  N  »URL  "8"  TO  URL  "10" 
1650  LET  U  »INT  (RND »URL  "101") 
1660  IP  U  <T 1  THEN  LET  TØ(N,C>»"1 
":  OO  TO  URL  "1890" 

1870  IP  U (TX  THEN  LET  TØ(N,C)»"X 
":  GO  TO  URL  "1890" 

1680  LET  TØIN.C) »"2" 

1890  NEXT  N.  RETURN 

2010  GO  SUB  URL  "200".  INPUT  "13 
RIGTIGE: ",RØ 

2020  IP  LEN  RØOURL  "13"  THEN  OO 
TO  URL  "2010" 

2030  GO  SUB  URL  "2500".  POR  F»UR 
L  "1"  TO  URL  "10".  LET  K-URL  "0" 

:  POR  N.URL  "1"  TO  URL  "13":  IP 
RØ  (N>  »TØ  (P  ,N.<  THEN  LET  K  »K  »URL  " 
1" 

2040  NEXT  N 

2050  PRINT  RT  N  »URL  "*",P»URL  "3 

2&5S  IP  k  >  m URL  "10"  RND  K<URL  "1 
3"  THEN  PRINT  RT  URL  "20", URL  "0 
" ; "PREMIE  I  RREKKE  ",P,"  EN  " ; K 
2056  IP  k »URL  "13"  THEN  PRINT  RT 
URL  "21" , URL  "0";  FLRSH  URL  "1" 

,  "PREMIE  I  RÆKKE  ";.F;  "  EN  ",K 
2060  NEXT  F:  LET  R0="":  GO  TO  UR 
L  "95*0" 

2508  GO  SUB  URL  "200" 

2505  FOR  N=URL  "15"  TO  URL  "255" 
STEP  URL  "2*".  PLOT  N.URL  "38": 
DRRU  URL  "0  ”  ,  URL  "lia'1 
2507  NEXT  N  DRRIJ  URL  "-2*0",  URL 
"0" 

2510  PLOT  URL  "15", URL  "32".  DRR 
U  URL  "2*0", URL  ”0":  FOR  N  »URL  " 
6*"  TO  URL  "1**"  STEP  URL  "2*": 
PLOT  URL  "15", N.  DRRU  URL  ”2*0", 
URL  ”0" 


1570  LET  X-UKUAL  "30". 
L  "8570":  IP  M3  0URL  • 
ET  HH»(HS.<H3> 


GO  SLIB  UR 
32"  THEN  L 


251*  NEXT  N 

2520  OUER  URL  "1":  FOR  F=VRL  1 
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TO  UAL.  ”10'' :  PBIMT  AT  UAL  "4",V 
al  -a-  t-r.r:  pda  w-ual  "i"  ro  val 


«-  rr ,  r ;  riw  J 

"13".  PRINT  OUCR  UAL  ”1";AT  N+U 
AL  ”4."  .UAL  "l"*-  (  IF-UAL  "lfM*UAL 
"3"  + (UAL  "1”  AND  TØ (F.N)  =  "1")  + (U 
AL  "2”  AND  TØ  (F.N)  =  'X'-)  +  (UAL  "3" 
AND  T* (F.N)  =  "2")  )  ; Tø (F.N)  :  NEXT 
N:  NEXT  ,F :  OUER  UAL  "0'' 


2530  GO  7*0  UAL  "9540": 

3005  GO  SUB  UAL  "200" 

3010  INPUT  "HJEMMEHOLD: H*:  IF 

«,*  =  ""  THEN  PRINT  »1;AT  UAL'"1",U 
AL  "7";  "L  ISTERNE  SORTERES.":  OO 
TO  URL  "5500" 

301S  GO  SUB  URL  ”7000":  IF  FEJL  * 
URL  "1"  THEN  LET  FEJL -URL  "0":  G 
O  TO  URL  "3010" 

S020  INPUT  ("ANTAL  HAAL  ",  AS/.F..N 
,  TO  UAL  "10")  ;  ")  ;M.  LET  H=N 

3025  PRINT  fiø(F,H,  TO  UAL  "10"); 


3030  INPUT  "UDE  HOLD"; Hø 
3035  GO  SUB  UAL  "7000":  IF  FEJL« 
UAL  "1"  THEN  LET  FEJL -UAL  "0":  G 
O  TO  UAL  "3030" 

3040  INPUT  ("ANTAL  HAAL  ", A» (F.N 
-TO  UAL  "lø'U  ;  ":  •')  JM1:  l£t  Ll-N 
3045  PRINT  Aø(F,U,  TO  UAL  "lø'M; 
Hl 


3050  PRINT  SI; AT  UAL  " 1 ", UAL  "  lO 
"OK. (N/ENTEA) " :  IF  INKEY«="N" 
THEN  00  TO  UAL  "3010" 

3055  PAUSE  UAL  "1".  IF  CODE  IMKE 


YØC-UAL  "13"  THEN  OO  TO  UAL  "305 


3060  LET  A«  (F,H,U*-UAL  "26") -CMA» 
mM.  LET  A«(F,U,H+UAL  "10".)-r.HRØ 

3070  PRINT  .  GO  TO  UAL  "3010" 
4020  CLS  :  INPUT  "DIU ISION . : " ; F : 

PRINT  'TAB  UAL  "12"; F;".  DIU." 
4025  IF  F >  UAL  "3"  OR  F <UAL  "1"  T 
HEN  GO  TO  UAL  "4020" 

4030  PRINT  KLUB  K. 

*  SC.-  P."-':  DRAU  UAL  "15!"  , 
UAL  "0":  DRAU  UAL  "0",UAL  "175"; 
DRAU  UAL  "  -255"  ^  UAL  f'0"  :  DRAU  U 


AL  "0"  ,  ((AL  "-17S 


—  j  -j  /d  PLOT  UAL  "0", 

UAL  "lés":  ORAU  UAL  "255", UAL  "0 
PLOT  UAL  "ø",UAL  "130" :  DRAU 
UAL  255" (UAL  "0" ;  PLOT  UAL  "132 
TRAU  <  _ 


I—  £33  .  UML  <£ 

VRL  "139".  DRP 


PLOT  UAL  "155", UAL 


UAL  ”0"  ,UAL 


DRAU  UAL  "0" ,UAL  "-léø":  PLOT  U« 
L  "107", UAL  "130":  DRAU  UAL  "0", 
UAL  "-139":  PLOT  UAL  "220", UAL  '* 
139":  DRAU  UAL  "0",UAL  "-lS9" 
4040  FOR  Z —UAL  ”1"  TO  UAL  "16" 

4044  LET  N-CODE  C«(F,Z,URL  "4">: 
GO  SUB  UAL  "8500" 

4045  PRINT  AT  Z+UAL  "4", UAL  "1"; 


139" 


AØ(F,N,  TO  UAL  "10"); AT  ZtUftL  "i 
, UAL  "19" -LEN  STRØ  K  ;  K  ;  AT  Z*UAL 
"4", UAL  "23"-LEN  STR«  Mi  Mi  AT  Z* 
UAL  "4", UAL  "27" —LEN  STRØ  Hl  i  Ml  i 
AT  Z»UAL  "4", UAL  "31" -LEN  3TR«  P 
;  P 

4050  NEXT  Z 

4060  GO  SUB  UAL  "9550" 

4070  RETURN 

sølø  SAUE  "T-85"  LINE  100:  CLS 


PRINT  AT  11,2;"  SPOL  TILBAGE  F 
OR  UERIFY  ":  UERIFY  " " :  RETURN 


S501  FOR  F-UAL  "1"  TO  UAL  "3":  F 
OR  N-UAL  "1"  TO  UAL  "15":  GO  SUS 
UAL  "8500":  LET  C«(F,N,UAL  "1") 
•CHR»  P:  LET  C« (F.N, UAL  "8") *CHR 

SCM+UAL  " 100" -Ml) :  LET  C*(F,N,U 
L  "4") »CHRØ  N:  LET  C*(F,N,UAL  " 
3") -CHA*  (UAL  " 17" —CODE  C«(F, N,V 
AL  "4") ) :  NEXT  N;  NEXT  F 
5510  FOR  F-UAL  "1"  TO  UAL  "3":  F 
OR  N-UAL  "1"  TO  UAL  ”16" 

5520  FOR  Z-N  TO  UAL  "18" 

5530  IF  C« (F.N,  TO  UAL  "3 ")  <CØ  (F 

''•Ié7ø"  "®"*  ™EN  00  SUB 

5540  NEXT  Z;  NEXT  H.  MEXT  F 
5560  RETURN 

5570  LET  BØ-CØ  CF ,Z)  :  LET  CølF.Z) 
«CØ(F,N):  LET  CØ(F,N)=B«.  RETURN 


6000  GO  SUB  UAL  "SOO":  OSEN  OS ■ " 

6001  INPUT  'NAUN: (ENTEA -MENY . ) :" 
;H»:  IF  HØ-""  THEN  GO  TO  UAL  06 
40" 

6003  GO  SUB  UAL  " 7000" :  IF  FEJL 
THEN  LET  FEJL -UAL  "0" :  GO  TO  UAL 

eeex  oo  sud  ual  "esa®"'  pnIMT-T ** 


O  U*L  "lø  ;F;"  DIUISION. " ' R$ (F ,N 

KS!-  "li" 


-LEN  STRØ  M;M."  -")I55  "*2' 

-LEN  STRØ  Ml; Ml;"  POINT-  ; TAB 


"1"  TO  UAL  ”3":  FOR  N-UAL  "1"  T 
O  UAL  "16" 

7020  IF  HØ-A« (F.N,  TG  LEN  HØ)  TH 
EN  RETURN 

7030  NEXT  N:  NEXT  F 
7040  GO  TO  UAL  "9500" 

7500  INPUT  "PRINTER. IJ/N) 

IF  H«-"J"  THEN  OPEN  »UAL  "2f' .  *P" 
7510  FOR  F-UAL  "1"  TO  UAL  "3'':  G 
O  SUB  UAL  "7550":  LET  K -UAL  "0": 

FOR  N-UAL  "1"  TO  UAL  "16" 

7520  FOR  X-UAL  "27"  TO  UAL  "42": 

IF  RØ  (F.N, X)  O"  "  THEN  OO  SUB  U 
AL  "8570": ^GO  SUB  UAL  "6040":  LE 

75a5Kir0H«< > "J"  AND  K -UAL  "20",  T 
HEN  GO  SUB  UAL  "9640":  GO  SUB  UA 
i  "7550" 

7530  NEXT  X.  NEXT  N:  IF  H«(>"U" 
THEN  GO  SUB  UAL  "9S40" 

S|t!"^„ÉN  UAL^'ØSøi" 

mi  Sr^"U"  THEN  LPRINT 
7660  LET  X-UAL  "0":  C-LS  :  PRINT 
;  TAB  UAL  "10  J  Fj  DIUOSION. 

6SØBBLET  M-UAL  "0":  LET  Hl-UAL  " 
0":  LET  P-UAL  "0" 


8510  LET  K-UAL  "O".  FOR 
1"  TO  UAL  "42":  IF  AølFj.N.X)  <> 
THEN  GO  SUS  UAL  6560  :  LET  K» 


UAL  "30" ; P " ' 

6009  FOR  X-UAL  "42"  TO  UAL  "11" 

6010  IF  AØ(F.N.X) <>"  "  THE N  GO  S 
UB  UAL  "6570" :  GO  SUB  UAL  "6040" 
6020  NEXT  X:  PRINT  :  OO  TO  UAL  " 
6001” 

6040  IF  X  >  —UAL  "27"  THEN  PRIJfT  ; 
A« (F.N,  TO  UAL  "10");"  ";A«(F,X- 
UAL  " 10 " -UAL  " 16 " ø ( X  >  —UAL  "27"), 
TO  UAL  "10")  M2;  H3:  RET 

6050  IF  XiUAL  "27"  TMEN  PRINT  A* 
(F, X-UAL  "lO",  TO  UAL  "10");"  "i 
Riir.N,  TO  UAL  "10");"  (13;  ; 

M2:  RETURN 

7005  IF  6«="7"  THEN  GO  TO  UAL  "7 
SØO" 

7010  LET  FEUL-UAL  "0":  FOR  F -UAL 


THEN _GO  SUS  UAL 

THEN  GO  TO  U 
8560® IF^X< UAL  "27"  THEN  GO  TO  UA 
85907LET  M3-CODE  AølF, X-UAL  ”26" 

éS92°GO  TO  UAL  "67 01" 

3700  LET  M3-CODE  AØIF, X-UAL  "10' 
,N*UAL  "26") 

3701  LET  H2-C0DE  AØIF.N.X) 

3702  IF  M2>M3  THEN  LET  P=P*U AL  " 

3703  IF  M2-H3  THEN  LET  P=P»UAL  " 

3704  LET  H=H*M2.  LET  Ml -Ml *M3 
6710  RETURN 

9020  DATA  "INDPUT  T IPSKAMPE . " , "K 
ONTROL  AF  TIPSKUPON INDPUT  AE 
SULTATER. " , "UDSKAIU  STILLING. ", " 
SAUE  PROGRAM.  ",  "SE  RESULTATER.  .■ 
"SE  ALLE  KAMPE" 

3510  LET  FEJL-UAL  "1":  PRINT  »1; 
RT  UAL  "1", O; "NAUN  FINDES  IKKE." 
U*1-  "100'':  RETURN 
4S  IF  Rø  THEN  RETURN 

9550  PRINT  »3;  AT  UAL  " 1 " , UAL  "0" 
' ENTER.  K-COPV."  PAUSE  J . 

u?RVSEL-gpvIF  ZJSSgtf-vJ"  THEN 

9560  RETURN 
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Adventure  Sjpy 


■  En  al  de  ting  der  gør  livet 
svært  lor  danske  adventure- 
Ireaks  er,  at  spillene  oftest  er 
på  engelsk,  og  så  er  det  svært 
at  gætte  sig  til.  hvilke  ord 
man  skal  bruge. 

Følgende  lille  program  kan 
klare  skærene.  Man  indtaster 
navnet  på  den  maskinkode- 
lil,  som  man  vil  undersøge. 
Den  læses  herefter  ind.  (Vær 


i  øvrigt  opmærksom  på,  at 
der  ofte  er  en  BASIC-loader 
foran  selve  spillet  på  bånde¬ 
ne.  den  må  man  spole  hen 
over).  Programmet  finder  så 
de  steder  i  spillet,  hvor  der  står 
noget  i  klartekst  og  udskriver 
det.  Noget  af  det.  man  får  ud¬ 
skrevet.  er  det  rene  volapyk, 
men  på  et  tidspunkt  kommer 
ordlisten  !□ 

Lars  Christensen . 


W  • 


10  HOVENTURE  SPY  <c>  by  LCSoft,  1*85 
2ø  INPUT  "Indtast  filnavn  *  ".navn* 

3ø  QPENOUT  "dummy " : MEMORY  &4FF  :  CLOSEOUT 
40  LOAD  navn* . &5øø 
50  Pc=?:500 


3 /Ih 


60  Pr=Pc+l :  IF  PEEk:<Pc><65  OR  PEEK<  pr  >>123  THEN  Sø 
70  pr=pr+l :  IF  PEEKOcXSS  OP  PEEkYpr»t23  THEN  Sø 
«ø  PRINT  CHP*<  PFFkY  Pc-1  > );  CHR*1-  PEFKX pr)>; 

9ø  Pc-Pc+l :  IF  PEFkYPc  X65  OR  PEEK<Pc»123  THEN  PRINT"  ".-GOTO  Sø 
løø  PRINT  CHR*< PEEKC Pc - GOTO  90 


10  REM  AnBEnG  RADS  POL.  YlNUM  1 UMS  PROGRAM  AF  i_ARS  SØRENSEN 
£0  CLS 

30  LOCATE  £.  £3  :  PRINT  "AnDEnG RADS PU-Ynum I uttS  PROGRAM" 

40  PRINT  :  PRINT  "Programmet  Druger  formlen  fix)  =  Ax'£  +  Bx  +  C" 
50  PRINT  :  PRINT  "Værdierne  A.  B  op  C  skal  indtastes.  " : 

60  PRINT  "derefter  udregner  oro grammet : " 

70  PRINT  :  PRINT  "tooDunktet  (XO.YO),  d lskriminanten  D  oo  renderne, 
ao  PRINT  :  PRINT  :  INPUT  "Tast  < RETURN)  for  at  fortsætte",  A* 

90  CLS 

100  uOCATE  £,  £3  :  PRINT  " ÅNDE NGRADS POuYnOm I UMS  PROGRAM"  :  PRINT 
110  INPUT  "  Indtast  A  ",  A 

l£0  IF  A=0  THEN  BEEP  :  GOTO  90  ^ 

INPUT  "Indtast  B  ",9  M 

140  INPUT  "Indtast  C  ".C  M  ■■■ 


m 

—  i 


■  Dette  program  til  kompa-  Programmet  anvender  sig  af  ten.  toppunktet  og  rødderne, 
tible  PC'ere  kan  udregne  an-  den  sædvanlige  formel  f  (x)  Programmet  er  skrevet  helt  i 


130  INPUT  "Indtast  B  ",3  Æ 

140  INPUT  "Indtast  C  ".C  i 

150  REM  ' 

160  PRINT  :  PRINT 

!ao  "  De,,e  Program  tu  kompa-  Programm. 

90  YO— D/  4*A  tible  PC'ere  kan  udregne  an-  den  sædv< 

£00  PRINT  "D  ="  D  dengradsligninger  hurtigere  =  Ax2  +  Bx+C. 

='io  pr 'MT  "xo  -"  xo  end  'emperaturen  stiger  1  Du  indtaste 

H o  prJnt  -?S  -  yo  grad- når  du  sveder  overil-  B  og  C.  og 

£30  PRINT  :  print  ne  skoleopgaver _ værdierne 

£40  Ir  D <0  THEN  PRINT  "Polynomiet  nar  ingen  redder" 
250  IF  D>  O  THEN  £90 
£60  X  =— B  /  <£#A> 

£70  PRINT  "Polynomiet  nar  roden  "  X  3£0  PRIN 

£80  GOTO  330  330  PRIN 

£90  X 1= (-B+SQR (D) )  /  <£*A)  340  PRIN 

300  X£= ( -B-SQR  <D)  )  /  (£*A)  350  A*  = 

310  PRINT  "Polynomiet  nar  redderne:  "  XI  360  IF  A 


2.  grad 


end  temperaturen  stiger  1  Du  indtaster  værdierne  for  A.  at  indtaste. □ 
grad.  når  du  sveder  over  di-  b  og  C.  og  lynhurtigt  får  du 


BASIC  og  tager  kun  et  øjeblik 


ne  skoleopgaver. 


Lars  Sørensen 


værdierne  tor  diskriminan- 


GOTG  330 


3£0  PRINT  “od  "  X£ 

330  PRINT  :  PRINT 

340  PRINT  " Preve  igen  (j/n) " 

350  A*  =  INKEY* 

360  IF  A*= " "  THEN  350 

370  IF  A*="j"  OR  A$="J"  THEN  90 
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ShoofEM 


0  POKE  33,233  PQKE  56 , 47 ' V-33248 
FOR  1*12344  TO  »2331 :PQKE  1,0 
i NEXT '■ POKE  V+32,0 

1  POKE  V+33-8F0R  1-12288  TO  12319 

;RERD  H : POKE  1 - R ■ NEXT 
POKE  54296,15 

2  POKE  V+24, 28 : POKE  V+22, 

PEEKC V+22)0R  16 : PRINT" CCLR) " 

FOR  >12332  TO  12991  RERD  R 
; POKE  I , R 

3  NEXT ; POKE  V+37,10:P0KE  V+38,5 
3  DIR  R*C24):R-0  POKE  34278,0 

POKE  34292,0 

10  FOR  >0  TO  24 : RERD  R4  C I ) : NEXT : L I  = 

:  KB-197 : SC=0 

15  POKE  V+16, ø : POKE  V,  150 
POKE  V+ 1,1 20  POKE  V+39,6 
; POKE  V+28, 13 ; POKE  2040, 193 : DI-B 
20  POKE  V+40, 2 
30  OOSUB  1000  SH-0 

33  K-PEEKCKB) :R-PEEKCV)+CK-10>»8-CK« 
18)48 :B-PEEKCV+16)RND  1 

36  IF  K-lø  THEN  D>1 

37  IF  K=18  THEN  DI=0 
58  POKE  2040, 193+DI 

60  IF  R<0  RND  B  THEN  B-øR-252 
63  IF  fl>233  RND  B-0  THEN  B=1  R«0 

67  IF  B  RND  R>60  THEN  POKE  V+16, 
PEEKC V+16)RND  254 : POKE  V-20R-R+1 
: GOTO  30 

68  IF  B-0  RND  R<20  THEN  POKE  V+16, 
PEEKCV+16)0R  1  POKE  V,60:R-R-1 

GOTO  50 

70  POKE  V,R  POKE  V+16, PEEKC V+16) OR  B 
IF  B-0  THEN  POKE  V+16, 

PEEKC V+16)RND  234 
73  fl-PEEKCV+l)+CK-9>»8-CK-23>48 

77  IF  R<32  THEN  POKE  V+1,220  R-R+3 

□OTO  30 

78  IF  R>220  THEN  POKE  V+l,32R"R-3 

GOTO  30 

80  POKE  V+l,fl  IF  PEEKC V+31 )RND  1  THE 
N  2000 

85  IF  PEEKC V+30)HND  1  THEN  93 
90  GOTO  150 

95  IF  PEEKC V+30»128  THEN  113 
100  I F  PEEK  C  V+30 ) RND  8  THEN  2000 
110  IF  PEEK C V+30) RND  4  THEN  2000 

112  GOTO  130 

113  SC-SC+INTCRNDC 1)43+1) »30 

123  POKE  V+21 ,  PEEKCV+21  )RND  127  T— 1 

150  IF  KO  13  THEN  2øø 

151  POKE  54276,0  POKE  34277,204 
POKE  34273, 137 : POKE  34272,43 
POKE  34276-33 

132  POKE  34290,0  POKE  34291,136 
POKE  34287,69  POKE  V+16, 

PEEKCV+16)RND  233 

133  POKE  34286,149  DS-8SH-1 
:X=PEEKCV)+24 : IF  PEEKC V+16)HND  1 
THEN  X-X+256 

154  POKE  54290, 17:  IF  Di  THEN  DS— 8 
: X-X-48 

133  B-0  IF  X>236  THEN  B-2X-X-236 
160  POKE  V+2,X:P0KE  V+3, PEEKC V+l ) 

: POKE  V+16, PEEKC V+16)QR  B 
POKE  2041 , 19S+DI 
162  POKE  V+21, PEEKCV+21) OR  2 
170  R-PEEKC V+2)+DS ; B-PEEKC V+16)RND  2 
IF  R<0  RND  B  THEN  R-243B-0 
175  I F  fi>255  RND  B-0  THEN  8-2R-0 
180  POKE  V+2-RP0KE  V+16, 

PEEKC V+16)0R  BIF  B-0  THEN  POKE  V 
♦16, PEEKC V+16)RND  253 
183  I F  PEEK C V+31) RND  2  THEN  POKE  V+2 
1, PEEK C V+21) RND  233: GOTO  199 
190  IFCRC20  RND  B=0)0RCR>60  RND  B)TH 


■  Programmet  tegner  en  la¬ 
byrint  i  pæn  grafik .  Din  opga¬ 
ve  er  at  gå  rundt  og  finde  for¬ 
skellige  ting,  samt  at  undgå 
uhyrer  -  eller  skyde  dem. 
Selvom  programmet  er  me¬ 
get  langt  kan  det  virkelig  be¬ 
tale  sig  at  taste  det  ind.  Det  er 
nemlig  helt  på  højde  med 
»Gateway  to  APshai«,  dog  ik¬ 
ke  helt  så  hurtigt,  og  heller  ik¬ 
ke  med  så  mange  skærme. 
Programmet  er  selvforklaren¬ 
de  og  benytter  ikke  joystick .  □ 
Christian  Hansen 


EN  POKE  V+21, PEEK C V+21) RND  253 
GOTO  200 

191  U-PEEKCV+30) : IFCU  RND  128)THEN  I 
FCU  RND  2) THEN  198 

192  IF  U  RND  2  THEN  194 

193  GOTO  198 

194  IFCU  RND  4)RND  Ml<5  THEN  POKE  V+ 
21, PEEK C V+21) RND  233: SH-0 
:SC-SC+m»lø:m=5G0T0  199 

195  IFCU  RND  8) RND  H2<5  THEN  POKE  V+ 
21, PEEK C V+21) RND  253  SH-0 

:  SC-SC+M24 1 0 :  (12=5 :  GOTO  199 

198  GOTO  170 

199  POKE  34276,0  POKE  54277-72 
POKE  54273, 4: POKE  54272-73 
POKE  54276,129 

200  IF  m-0  THEN  300 

205  X-PEEK C  V+4  >  : V-PEEK  C  V+5  > 

IF  PEEKC V+16)HND  4  THEN  X-X+256 
2 1 0  VX-PEEK C  V ) : V V-PEEK  C  V+ 1 ) 

IF  PEEK C V+16) RND  1  THEN  VX-VX+256 
212  IF  Hl>4  THEN  275 
215  IF  Ml-4  THEN  230 
220  IF  Ml-3  RND  RNDC1)>.3  THEN  250 
225  X1-X+CX>VX)»S1-<X<VX)*S1 
V1-V+CV>YV)*S1-CV<VV)»S1 
227  IF  XI >255  THEN  Xl-Xl-256 

POKE  V+16, PEEKCV+16)0R  4  GOTO  235 
230  POKE  V+16, PEEK C V+16 )RND  251 
235  POKE  V+4, XI  POKE  V+5- VI 
247  GOTO  300 

230  X1-X+INTCRNDCD43-1  )4S1 
:  Vl-V+INT CRNDC 1  )»3-l  )»S1 
251  IF  Xl<20  OR  Xl>320  OR  Vl<52  OR  V 
1>220  THEN  X1-XV1-V 
255  POKE  V+16, PEEKCV+16)RND  251 
IF  XI >253  THEN  X>Xl-256 
POKE  V+16,PEEKCV+16)0R  4 
260  POKE  V+4, XI  POKE  V+5- VI 
270  GOTO  300 
273  IF  111-10  THEN  290 
280  POKE  V+41 , 1 : POKE  V+28, 

PEEKC V+28)RND  231 : 111-I11  +  1  :  GOTO  300 
290  POKE  V+28- PEEK  C  V+28)  OR  4  111-0 
POKE  V+21, PEEK C V+21) RND  251 
300  IF  M2=ø  THEN  400 
305  X-PEEK C V+6)  V-PEEK C V+7) 

IF  PEEKC V+16)HND  8  THEN  X-X+236 
3 1 0  VX-PEEK  C  V )  VV-PEEK  C  V+ 1 > 

IF  PEEKC V+16) RND  1  THEN  VX-VX+236 

312  IF  M2>4  THEN  375 

313  IF  (12-4  THEN  330 

320  IF  112-3  RND  RNDC1».3  THEN  350 
323  X 1  “X+  C  X>VX  )  4S2-  C  X<VX  )  4S2 
:  Y 1  =  Y+  C  V> VY  >  4S2-  C  V<VV  )  »S2 
327  IF  XI >255  THEN  Xl-Xl-256 

POKE  V+16, PEEKCV+16)0R  8  GOTO  335 
330  POKE  V+16, PEEK C V+l 6 )RND  247 
333  POKE  V+6- XI  POKE  V+7, VI 
347  GOTO  400 

330  Xl-X+INT CRNDC 1 >43-1 >4S2 
: Vl-V+INT  CRNDC 1 )»3-l )»S2 
351  IF  X1<20  OR  Xl>320  OR  Vl<52  OR  V 
1>220  THEN  X1=X: Vl-V 
355  POKE  V+16, PEEKC V+16) RND  247 


IF  XI >255  THEN  Xl-Xl-256 
POKE  V+16, PEEK C V+l 6) OR  8 
360  POKE  V+6, XI  POKE  V+7, VI 
370  GOTO  400 
375  IF  (12-10  THEN  390 
380  POKE  V+42, 1  POKE  V+28, 

PEEK  C  V+28)  RND  247 :  (12-M2+1  :  GOTO  400 
390  POKE  V+28,  PEEK  C  V+28)  OR  8  (12=0 
POKE  V+21- PEEKCV+21 )RND  247 
4øø  GOTO  55 

1000  R$=R$CR) :B4="0000" : PRINT" CCLR) " 
POKE  V+35, 8+INTCR/5) : POKE  V+21,0 
: FOR  1=1  TO  20 

1005  IF  LENCfl*)>=4  THEN  B4-LEFT4CR4, 
4) : R4-RIGHT* Cfl*, LENCR»)-4) 

1010  PRINT" CHO(1E)",TRBCCI-l >42), 

: D=VRLCLEFTtCBf , 2) ) 
U=VRLCRIGHT*CB*,2>> 

1015  IF  D-0  THEN  1025 
1020  FOR  J*1  TO  DPRINT"ØRCCRSR  NED, 
CRSR  VENSTRE2)"; :NEXT 
1023  PRINT" C HOME, CR§R  NED23)"; 

TRBC  C 1-1  >42) 

1030  IF  U>0  THEN  FOR  J=1  TO  U 

: PR I NT "Bfl C CRSR  OP, CRSR  VENSTRE2)"; 
NEXT 

1035  NEXT  I  T—  1IF  RNDC1X.6  THEN  1 
065 

1037  T-ØPOKE  V+14, 100+RNDC 1)4150 
1040  POKE  V+15, 100+RNDC 1)430 
POKE  V+16, PEEKC V+16)RND  127 
POKE  V+46,2 

1045  POKE  V+29, PEEKC V+29)0R  128 
POKE  2047, 197: IF  KE  THEN  1055 
1053  POKE  V+21, 128: f-PEEKC V+31 )+PEEK 
CV+3D+PEEKCV+31) 

1060  IF  PijEKCV+31  >RNP  128  THEN  T— 1 
POKE  V+21-0 

1065  POKE  V+21, PEEK C V+21) OR  1 
I-PEEKC V+31 ) : I -PEEKC V+30) 

1070  111-0  M?40  IF  RNDC1X.3  THEN  1110 
1072  POKE  V+4- RNDC 1)4236+20 
POKE  V+5- RNDC 1)4168+52 
1075  (1 1  •  I  NT  C  RND  C  1 )  *4+1 ) 

POKE  2042, 198+(1l:R0KE  V+41-6  S1-2 
1080  IF  (11=2  THEN  POKE  V+41-11S1-6 
1083  IF  111-3  THEN  POKE  V+41,9:S1=4 
1090  IF  Hl-4  THEN  PQKE  V+41-14S1-4 
1100  POKE  V+21, PEEKC V+21 )OR  4 
: I-PEEKCV+31) 

1110  IF  RNDC1X.3  THEN  1150 
1112  POKE  V+6, RNDC 1)4236+20 
: POKE  V+7 , RND  C 1 ) * 1 68+52 
1115  112-INTCRNDC  1)44+1) 

POKE  2043, 198+M2: POKE  V+42-6S2-2 
1120  IF  (12-2  THEN  POKE  V+42,ll:S2=6 
1125  IF  (12-3  THEN  POKE  V+42-9:S2=4 
1130  IF  (12=4  THEN  POKE  V+42,14:S2=4 
1133  POKE  V+21, PEEK C V+21) OR  8 
: I-PEEKCV+31) 

1150  PRINT" C HOME, CRSR  NED24)"; 

FOR  1=1  TO  LI : PRINT"CHVID)B 
:  NEXT 

1155  POKE  V+28, 15 
1200  RETURN 


18 


© 


2000  POKE  V+2S, PEEK< V+28)RND  234 
; POKE  34276,0  POKE  34277,143 

POKE  54273,34 

2001  POKE  54272,75  POKE  34276,129 

: POKE  V+39, 1 ; FOR  1=1  TO  2000:NEXT 

2004  POKE  V, 150  POKE  V+ 1,120 

2005  POKE  V+28,PEEK(V+28)0R  1 

: POKE  V+39, 6 : POKE  V+21,0  LI=LI-1 
: R=0 : IF  LI>0  THEN  50 

2010  POKE  V+24, 20- PRINT" (CLR, 

GRØN) HARD  LINES,  VOU  UERE  K ILLED" 

2012  PRINT" (CRSR  NED3, 

GUL) VOU  SCORED"SC 

2013  PRINT" <CRSR  NED2, 

LILLR)ANOTHER  GAME  ?" 

2017  POKE  54273, 0 : POKE  54272,0 
: POKE  54287,0 -POKE  54286,0 

2020  GET  R$  •  IF  A*="V"THEN  SC=0:LI=3 
: POKE  V+24, 28 : GOTO  13 

2023  IF  R*<>"N"THEN  2020 

2030  END 

10000  DATA  235-234,234,234,234,234, 
234,233,235, 171, 171 , 171, 171 , 171, 
171,255 

10003  DHTR  24,24,255,24,60,108,108, 
108,0,6,249,70,0,0,0,0 

11000  DATA  0,0,0,0,21,0,0,21,0,0,4,0, 
ø, 170,0,2,170,138,2,42, 164,2,42,0, 
2,42,0 

11003  DATA  2-42-0,1-42,0,0,63,0-0,63, 
0-0,51,0,0,51,0,0,243,0,0,195,192, 
0,192,192 

11010  DATA  0,192,192,0,240,240,0,0,0, 
99 

11015  DATA  0,0,0,0,84,0,0,84,0,0,16, 
ø,ø, 17ø,ø, 162, 170, 128,26, 168, 128- 
0, 168, 128 

11020  DATA  0,168.128,0,168,128,0,163, 
64-0,232,0,0,252,0,0,204,0,0,204, 
0,0,207,0 

11023  DATA  3,195,0,3,3,0,3,3,0,15,15, 
0,0,0,0,99 

11030  DATA  0,0,0,0,0,0,3,0,0,0,32,0, 
12, 168,0, 194, 168,0, 12, 168,0,0,32, 
0,3, 0,0, 0,0 

11035  DATA  0,0, 0,0, 0,0,0-, 0,0, 0,0, 0,0, 
0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0-0- 
0,0, 0,0 

11040  DATA  99,0,0,0,0,0,0,0,0,192,0, 
8,0,0,42,48,0,42, 131,0,42,48,0,8. 
0,0,0, 192  . 

11043  DATA  ø,ø, 0,0, 0,0, ø,ø, 0,0, 0,0,0, 
0,0,  ø,ø,  0,0, 0,0,  ø,ø,  0,0, 0,0,  0,0,0, 
0,0, 0,0 

11050  DATA  0,0,99,0,36,0,0,126,0,1, 
231,128,3,1,192,6,0,224,0,0,224,0, 
0,224 

11055  DATA  0,1,192,0,3,128,0,7,0,0, 
14,0,0,28,0,0,56,0,0,48,0,0,48,0, 
0,48,0.0,0,0 

11060  DATA  0,0,0,0,48,0,0,120,0,0,48, 
0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
48,0,0,206 

11063  DATA  0,3,3,15,252,3,3,3,3,3,0, 
206,0,0,48,0,0,0-0-0,0,0-0,0.0,0, 


0,0, 0,0,0 

11070  DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,99 

11075  DATA  0-0,0,0,0,0,0,0,192,0,3, 
48,0, 12,0, 12, 12,0,48,42,0, 12, 170, 
128 

11080  DATA  3,153,176,0,170,140,0,42, 
3,0, 12, 12,0, 12,0,3,48,0,0/192,0,0, 

070)0)0)0 

11083  DATA' 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 
99,0,8,0,0,42,0,0,38,0,0,42,0,0,8, 
0,2, 170, 160 

11090  DATA  2,46,32,2,46,32,3,42,48,2, 
21,32,2,42,32,0,42,0,0,34,0,0,128, 
128 

11095  DATA  0,192,192,0,128,128,0,128, 
128-0,34,0,0,34,0,0, 162, 128,2, 162, 
160,99 

llløø  DATA  0,0,0,0,9,92,0,46,0,0,191, 
128,2,110,96,194,89,96,73,89,88, 
73,89,88 

11105  DATA  110,170, 174,9,89,89,2,8 9, 
89,2,89,97,0,174,99,0,191, 128,0, 

46,0 

11110  DATA  0,8,0,3,84,0,0,0,0,0,0,0, 
0,0,0,0,0,0,99 

11115  DATA  0,0,0,0,0,0,0,0,0,0,0,16, 
0,0,16,0,0,64,0, 1,2, 0,4, 8,0, 1,8,0, 
4,2 

11120  DATA  40.16,130,130,154,34,128, 
112,8,1,48,0,4,60,0, 16, 15,192,64, 
0,192 

11125  DATA  16,0,252,4,0,0,16,0,0,64, 
0,0,99 

12000  DATA  2400240005040504050403040 
30400040004000400040004 1 009 
12005  DATA  1009100910090504050405040 
504031500040004000400041009001900 
1400141009 
12010  DATA  1009 

12015  DATA  1009100910091009100910091 
0091 009000900090009000900090024 
12020  DATA  0024002400240504050403040 
504050400090009000900090009050405 
0403040024 

12025  DATA  2400240010091009100910091 
009100010001000100010001009 
12030  DATA  1009100910091009100910091 
0091 00900000000000000000024 
12033  DATA  2400240005040304050405040 
3040504000400040004000403040304 1 0 
09 

12040  DATA  1009100910091009100910091 
009100910001000100010001009 
12043  DATA  1009100903040304050405040 
304050400000000000000000302030203 
0203020024 

12050  DATA  2400240024002400240024002 
40024000009000900090009 1 009 
12033  DATA  1009100910091009100910091 
009100910001000100010000024 
12060  DATA  2400240003020302030203020 
302030200000000000000000302030203 
021009 

12065  DATA  1009100910091009100410041 


004 1 0040004000400040004 1 004 100410 
0410041009 

12070  DATA  1009100910091009100910091 
009 1 00900000000000000000024 
12075  DATA  2400240024002400050405040 
504050400000000000000000504050405 
0405040024 

12080  DATA  2400240024002400240024002 
40024000009000900090009 1009 
12085  DATA  1009100910091009100910091 
009100910001000100010000024 
12090  DATA  2400240003020302030203020 
302030200000000000000000302030203 
0203021009 

12095  DATA  1009100910091009100910091 
ø091øø9øøøøøøøøøøøøøøøøøø24 
12100  DATA  2400240005040504050405040 
504050405000500050005000504050405 
0405041009 

12105  DATA  1009100910091009100910091 
009 1 009 1 000 1 000 1 000 1 øøø 1 009 
12110  DATA  1009100910091009050405040 
5040504050405040504050405040024 
12115  DATA  2400240024002400240024002 
4002400 10001000100010001009 
12120  DATA  1009030203020302030203021 
502030203000300030003000302030203 
0203020024 

62000  T=PEEK  <  62 ) *256+PEEK  <  6 1 ) + 1 

62010  I NPUT "TO  PRINTER  <  V  , 

N  OR  DELETE  )  ";Qt 

IF  Q* = " DELETE " THEN  62200 

62011  IF  Qt<> "V'THEN  62020 
62015  CLOSE  4, 4 : OPEN  4.4CMD  4 

-  PRINT  CHR$( 1 ) ; CHR$( 1230 
62020  PRINT  CHR*( 147); "CHECK  SUM 
: L I NK=PEEK ( 44 ) *256+PEEK  <  43 ) 
E=61999 

62100  REM  *  MAIN  LOOP  * 

62120  T=LINK 

62121  LET  XX=TI 

62130  LI NK=PEEK ( T+ 1 ) »256+PEEK C T ) 

62135  LN=PEEK  <  T+3 ) #256+PEEK  <  T+2 ) 

62136  IF  LN>E  THEN  PRINT 

PRINT " TOTAL=" ; CH : CLOSE  4,4  END 

62137  S»=STR*<LN)  L=LENCS*)-1 
S$=MID*(S*,2,L> 


62138  PRINT  SPC<6-L);SJ; 

62140  CS=0  N=0  :  C=ø 
62150  FOR  P=T+4  TO  LINK-2  :PK=PEEK<P) 
62160  IF  PK=143  THEN  P=LINK-2 
•GOTO  62190 

62165  IF  PK=34  THEN  C=<C=0> 

62170  IF  C=0  AND  PK=32  THEN  62190 
62180  IF  PK=137  THEN  N=N+1 
: CS=CS+(203  OR  N)PK=164 
62185  N=N+1  CS=CS+<PK  OR  N) 

62190  NEXT  P  : CH=CH+CS 

•  print"=";right*<str*<:cs). 

LEN(STR$(CS))-1) 

62191  IF  TKXX+240  THEN  62191 

62192  GOTO  62120 

62200  POKE  T, 0 : POKE  T+1,0 
: POKE  46 , PEEK ( 46 ) -2 : CLR 
62999  REM 
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■  Dette  program  kan  ved 
hjælp  at  de  brugerdefinerba- 
re  grafiktegn  på  Spectrum- 
men,  tegne  Garfield  med 
hans  frække  smil.  Program¬ 
met  definerer  og  skriver  gra- 
fiktegnen  fire  gange.  Ved 
indtastning  af  programmet 
skal  teksten  i  linierne 
350-370.700-720.  1100-1120 

og  1 450- 1 460  indtastes,  mens 
computeren  er  i  graphics  mo 
de.D 

Peter  Blume 


*•  +  ******♦♦**"  + 


•50  DATA 
160  DATA 
170  DATA 
180  DATA 
190  DATA 
200  DATA 
210  DATA 


70  REM  ********* 

80  RET 

100  FOR  m=l  TO  20:  GO  SUB  1500 
',0.0,  0.0,0.  3.  7.7 
• ,  0.  0,  0,  O,  260,  15,  192.  260 
•,  1,2.  15,  15,  15,  15,  207,56 
1 , 268,  7,  128,  192,  268,  238,  195,  O 
',0,0.  226,  56,  12,  2,  129.  192 
■ ,  0,  0.  O,  0,  O,  O,  O.  128 
•,3,3,2,2,1,1.0,68 
220  DATA  “h”,  238,  181 , 8,  O.  O.  15,  166,  96 
',8.8,200,60,  17,266,26,8 
•,0.0.0,  127,  128.  0,  0.0 
' ,  96,  16,  16,  136.120,26.8.6 
',66,66,32,30,7,6.6,0 
' ,  O,  0,  0.  O,  192.  160.  16,  26 
',8,  117,  10,5,  265,5,  12.  16 
•,  128,  128,  128,  O.  O,  O,  128,  128 
•,  8,  16,  16.  32.  32,  16.  16.  16 
',  0.  0,  0.  0,  O,  0.  O,  63 
'.6,  2,  2,2.3,  26,  226,6 
* ,  0,  0.  0.  268.  6,  2.  2.  129 
• ,  8.  60.  62.  62.  3,  1.3,  7 


220 

DATA  " 

h" 

230 

DATA  " 

i  " 

240 

DATA  ' 

i  n 

250 

DATA  ' 

K  " 

260 

DATA  ' 

1  " 

270 

DATA  ' 

m" 

280 

DATA  ' 

n  " 

290 

DATA  ' 

o" 

300 

DATA  1 

o" 

310 

DATA 

q" 

320 

DATA 

r  " 

330 

DATA 

s" 

340 

DATA 

t" 

350 

PRINT 

A 

360 

PRINT 

A 

370 

PRINT 

A 

630 

REM 

640 

FOR  m=l 

490 

DATA 

'a' 

500 

DATA 

’b' 

510 

DATA 

1  c 1 

520 

DATA 

'd' 

530 

DATA 

560 

DATA 

'  f  ' 

550 

DATA 

'9' 

560 

DATA 

'h' 

570 

DATA 

"  i 

580 

DATA 

"  J 

590 

DATA 

"  K 

600 

DATA 

■•  i 

610 

DATA 

"m 

620 

DATA 

"n 

630 

DATA 

"o 

660 

DATA 

"  o 

650 

DATA 

"q 

660 

DATA 

H  r 

700 

PRINT 

710 

PRINT 

720 

PRINT 

TO  18:  GO  SUB  1500 
16,  23,  52.  60,  56.  68,  6e.  60 
,  66.  127,  32,  26,  7,  66,  32.  16 
,  15.  268.  108,  1  9,  261,30,51,  192 
,  192,  192.  O.  129.  126,  0.  192,  63 
,  12.26,69. 196,6,26,226.0 
,65.  129,  1.2.  2B,  0.0.0 
,31.31.  11.7,31.2.  6.  126 
,36,  56,  17,  30.  16.  6,  2.  1 
,  15.  32.  192,0,  O.  O.  O.  178 
,0.  0.0,  0,0.  7.  15,  O 
.  O,  0.  O.  O,  136,  156,  163,  252 
,  60.  62.  1 1 . 25.  1 9.  227.  3.  3 
,  O.  O.  128-  192.  192,  192,  192,  226 
,225,61,7,  0,0,  O,  1,1 
o".  O,  128.  192.66,  128,  128.0.0 
o",  3,  6.  8,0.0,  0.0,0 
a",  152.  16,  15,  15.  15,  26,  O.  O 
r" ,  O,  O,  O.  192.  192.  160.  16.  16 
AT  8,  10:  "abede* V 
AT  9,  10:  "hi  JR  lm" 

AT  10,10:"  no  par" 


780  RET 


790 
860 
850 
860 
370 
880 
S90 
900 
910 
920 
330 
960 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1060 
1100 
1110 
1  120 
1 180 
1200 
1260 
1250 
1 260 
1270 
1280 
1 290 
1300 
1310 
1320 
1330 
1360 
1350 
1360 
1370 
1380 
1650 
1660 
1699 
1500 
1510 
1520 
1530 
1560 


FOR  m=l  TO  21 :  GO  SUB  1500 


DATA 

DATA 


"a”.  1. 2,  2,  6.  6,  6,  6.  S 
b“.  O,  0.0.0,  1,3,  6,9 
DATA  "c".  O,  O,  63,  223.  198,  2,  128.  66 
DATA  "d",  O.  O,  192,0,  1,0,  O.  O 

"*”,56.56,  120,252.  160,  12,6,  28 

"f  "  ,  8,  8.  8,  8,8,  8,8,8 
"s”.  O,  O,  0,0,  O,  O,  O,  8 
"h",0,0.  O,  O,  O,  O,  0,6 

••  i  ,  9.  26,  28,  30,  56,  32,  32,  68 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
PRINT 
PRINT 
PRINT 
REM 

FOR  m=l 

a 

b 


",  O,  O,  0,0,  O,  1,  O,  O 

",28,28,  126,  126,252,252,28,23 

"  .0,  O,  0.0,  O,  O,  O,  268 

",  8.  8.  8.8,  6,  12,20,36 

".O.O.O.O,  O,  0,0,  1 

" ,  6 ,  6,  6,6.  6,  6,  252,  O 

",  8,  8,  8.8,  8,  8,  6,  3 

",56.62.  16,  16.  16,8,8,252 

".0,0,  1,2,2,  7,  16.28 

“ ,  9,  8,  260,0,  O,  192,68,  16 

".  160.  161 ,  O,  O,  O.  1, 2,  O 

".O,  O.  128,  128.  192,  192,  192.  66 

AT  11,10:"  a  bede" 

AT  12, 10: "  f  ehi  JR  I " 

AT  13. 10: "  mnopa  rstu" 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
PRINT 
PRINT 
STOP 
READ  c* 


TO  15:  GO  SUB  1500 
.70.73.72,32.32.30.  1.0 
,  2.  2.  132.  68.  37,  61.  196,  1 
.66.68.  136.  136.  16.  8.  136,  76 
.2,  6.  8,9.  17.  18.  18.56 
.0.  O.  128.  6.  8.  16.  16.  16 
.  31 . 56.  56.  62.  56,  62.  26,  16 
,0.0.  7.  3.  O,  1.2,12 
.  66.  66.  192.  128,  128,  O.  O.  O 
.51.0.0,0,0,0.0.0 
.225.0,0,0,0.0,0.0 
.  16.252.3,0.  O.O.O.O 
I  ".33,  223.  0.0.  O,  0,0.0 
m"  ,  256,  1,  O.  O.  O,  O,  O.  O 
n",0,  255,0.  O,  0,0.  O.  O 
o".  68,  192.0.0.0,0.0.0 
AT  16,101"  abede  f  sh" 

AT  15,10:"  iJRlmno" 


R' 


FOR  n=0  TO  7 
READ  x 

POKE  USR  e*+n,  x:  NEXT  n:  NEXT  m 
RETURN  _ 


PROGRAM :  FLVSIM. 773 


10  DIM  MC$(28) : GOSUB  2700 
20  HI*="  S  I"  HI  =  10 
30  PRINT" (CLR, HVID) "CHR*(8)i 
•POKE  53265, 11 'POKE  53280,0 
: POKE  5328 1,0  POKE  650,128 
40  P I =0 ; RO=0 • LV=0 • MH=0 : TM=0 • FU=0 • CT=0 
:  AM=0 :  U I  =0  TH=0 :  SP=0  •  BR*=  "  "  :  FL*=  "  ” 
FP=1 

50  UC*=" " = EH=ø : ED=0 • HE=0 • X=0 :  1=0  : A“0 
' K=0 • ES=0 ■ EN=ø : CL=0 : FL=0 • CN=ø : HD*0 
: AL=ø : CP=1 
60  CC=0 

70  FOR  1=54272  TO  54294  POKE  I,ø:NEXT 
POKE  54295,3  POKE  54296,30 
80  POKE  53272, 22: PRINT” (CRSR  HØJRE n 
ILOT  IRHI NER" 

90  PRINT" (HOME, CRSR  NED, 

CRSR  VENSTRE  19)  II -SCORE: "HI"  "HI* 
løø  PRINT" (CRSR  NED3,GUL)-.N  THIS  GHM 
E  VOU'RE  SUPPOSED  TO" 
llø  PRINT" (CRSR  NED1FLV  fl  JETFIOHTER 
OVER  H  MOUNTAIN” 

120  PRINT" (CRSR  NED) RANGE, 

SHOOT  DOWN  AN  ENEMV  PLANE," 

130  PR I  NT "(CRSR  NED )F IND  THE  RUNMRV 
ON  THE  OTHER  SIDE" 

140  PRINT " (CRSR  NED) AND  LAND  ON  IT.% 

F  VOU  END  HERE.  VOU'LL" 

150  PRINT" (CRSR  NED)GET  A  (HVID)l-.\“ 

( GOL ) BONUS ,  H  (HVID)-/“L  (GUL)BO 
NUS,  ” 

160  PRINT" (CRSR  NED) AND  A  (HVID)L-X~ 
L  (GUL)BONUS. ■\F  VOU  GET  THE  HIGH-" 
170  PRINT" (CRSR  NED) SCORE, 

VOU'LL  BE  ABLE  TO  ENTER  VOUR" 

180  PRINT" (CRSR  NED) INITIALS. " 

POKE  53265, 27  FOR  S=1  TO  500:NEXT 
190  GOSUB  370  POKE  53265,11 
200  PR I NT " ( CLR .HVID) -ONTROLS  " 

210  PR I NT "(CRSR  NED , GRØN ) — UNCT ION 
(HVID)  I (GRØN)-ONTROL" 

220  PRINT" (HVID) - 1 - 


780  IF  A*<>"  "THEN  34ø 
79ø  GOSUB  2620 
8øø  IF  UC*<> "DOWN "THEN  830 
810  UC*=”UP  "GOSUB  1680 : WI=WI-1 
IF  AL=ø  THEN  H=l  GOTO  2020 
820  GOTO  1210 

830  UC*="DOWH" : GOSUB  1680WI=UI+1 
GOTO  1210 

840  IF  JO  123  THEN  870 
850  IF  R0>-90  THEN  RO=RO-l 
860  GOTO  1210 
870  IF  J0119  THEN  900 
880  IF  R0C90  THEN  RO=RO+l 
890  GOTO  1210 
900  IF  JO  125  THEN  930 
910  IF  PI <80  AND  SP>2øø  THEN  PI=PI+1 
920  GOTO  1210 
930  IF  JO  126  THEN  960 
940  IF  PI >-80  THEN  PI=PI-1 
950  GOTO  1210 
960  IF  A$0"+" THEN  990 
970  IF  TH<100  AND  FU>0  THEN  TH=TH+2 
IF  SP<1 100  AND  BRt="OFF"THEN  SP= 
SP+5 

980  GOTO  1210 
990  IF  A*0"-"THEN  1020 
løøø  IF  TH>0  THEN  TH=TH-2 
IF  SP>0  THEN  SP=SP-5 
lølø  GOTO  1210 
1020  IF  A*<>"F"THEN  1060 
1030  GOSUB  2620 

lø4ø  IF  FL$="OFF"THEN  FL*="ON  " 
WI=WI+1  FP=2G0T0  1210 
1050  FL*="OFF"  FP=1  WI=WI-1 : GOTO  1210 
1060  IF  HtOCJTHEN  liøø 
lø7ø  GOSUB  2620 

1030  IF  BR*="ON  "THEN  BR*="OFF" 

GOTO  1210 

1090  BR*=”ON  "GOTO  1210 
liøø  IF  A*0"R"THEN  1140 
1110  K*=MET+"HEAD  "+STRJ(EH> 

IF  ES=0  THEN  K*=K*+”  DIST 
:  "+STR*(ED>+”  HGHT:  "+STRKEN) 

1120  GOSUB  1890 
1130  GOTO  1210 
1140  IF  POø  THEN  1190 
1150  IF  AM=ø  THEN  K*=ME*+"OUT  OF  AMM 
UNITION  ("GOSUB  1890: GOTO  I2]ø 
1160  RM=AM-1  GOSUB  1870 
1170  GOSUB  2520: IF  CK=1  THEN  K*=ME*+ 
"ENEMV  PLANE  HIT  !!"  GOSUB  2500 
: ES=1 : GOTO  2550 

1180  PRINT  ME*”GUNS  MISS. "; AM; 

"ROUNDS  LEFT"  GOSUB  1820:G0T0  1210 
1190  IF  AtO"(F2)"THEN  1210 
1200  A=9 : GOTO  2020 
1210  IF  SP<0  THEN  SP=0 
1220  IF  SP>lløø  THEN  SP=lløø 
1230  CN=CN*SP/løøø#(  (30-LW25) 
CT=INT(CN)  GOSUB  1630 
IF  TI/60>TM  THEN  A=2:G0T0  2020 
1240  POKE  54273, 10+TH: POKE  54294, 


500  POKE  53265, 11  PR I NT "(CLR, 

HVID) I HE  MOUNTRINS  RRE(CVAN) " 1 MH, 
" (HVID)FEET  HIGH." 

510  PRINT" (CRSR  NED)  IOU  HAVE(CVAN)"; 

TM;"(HVID)SECONDS  TO  COMPLETE.” 
520  PRINT" (CRSR  NED)  IOUR  TANKS  ARE  C 
ONTAINING(CVAN) “ i FU, 
"(HVID)GAL.FUEL. " 

530  PRINT" (CRSR  NED)  IOU  HAVE (C VAN) " ; 

AM,  " (HVID)GUN  ROUNDS." 

540  PRINT" (CRSR  NEDJOIND  SPEED(CVAN) 
",wi; "(HVID, CRSR  VENSTRE)." 

550  PRINT" (CRSR  NED)*TARTING  RUNUAV 
0-50" 

560  PRINT" (CRSR  NED)“NDING  RUNUAV 
700-750" 

57ø  PR I NT "(CRSR  NED2 ) -EMEMBER  THIS, 
IT'S  VERV  IMPORTANT." 

580  PR I NT "(GRØN) - 


230  PRINT" (GRØN)LEFTZ-IGHT  (HVID) K 
GRØN)  T  1*1  — '  2  LEFT/-IGHT" 

240  PRINT"  "TITCH  UP/DN  (HVID)  I  (GRØN)  v 
riOK—  2  J=/-OWN" 

250  PRINT"-ADAR  •  (HVID)  KGRØN)-' 
EV 

260  PRINT" I  HRUST  +/-  (HVID)  l(GRØN)-’ 
EVS  +/-" 

270  PR  I  NT  "-LAPS  UPZDN(HVID)  l(GRØN)-' 
EV  -" 

280  PRINT"  -NDERC.  UP/DN  (HVID)  KGRØN)-’ 
EV 

290  PRINT"— IRE  GUNS  (HVID) KGRØN)  ' 
n*l%— •  2  -IRE  BUTTON" 

300  PRINT" IRAKES  (HVID)  l(GRØN)- 

I  / — " 

310  PRINT" I  AIL  OUT  (HVID) KGRØN)' 

EV  -2" 

320  PRINT" (HVID) - ‘ - 


590  POKE  53265, 27  FOR  S=1  TO  500NEXT 
GOSUB  370 

600  EN=INT (RND(Ø) *2000) +300 
610  EH=INT(RND(ø)*360) 

620  ED= I NT ( RND ( ø ) *50 ) + 1 Øø 
630  HERD=270  ALT=ø  LA=ø  FL=0  RO=0 
SP=0 : FL=FU 

640  REM  HE=HEADING,  AL=ALT1TUDE, 
LA-LANDED  ?  1=V,  FL=FLAPS. 
RO=ROLL,SP=SPEED 

650  POKE  53272,21  PRINT’KCLR, HVID, 
SPACE4 )  i - 


330  PRINT" (CRSR  NED,CVAN)I HIS  GAME  S 
I MULATES  AN  (RVS  ON, 

RøD)->/tl  —  e'w'l  -L-,1  II  (CVAN, 

RVS  OFF)”, 

340  PRINT " (CRSR  NED) AND  IT'S  (RVS  ON, 
RØD) /TI  (CVAN, RVS  OFF, 

SPACE) PØSSI BLE  TO  MRKE  (RVS  ON, 
RØD)*/ I  (CVAN, RVS  OFF, 

SPACE) USE  OF", 

350  PRINT" (CRSR  NED)A  COCKPIT  WINDØW 
.(%T'S  CLOUDV  WEATHERI )” 

POKE  53265,27 

360  FOR  S=1  TO  500 : NEXT : GOSUB  370 
GOTO  4øø 

370  PRINT" (HOME, CRSR  NED23, LILLA, 
SPACE  )T?ESS  -_l  KEV  TO  CONTINU 
E. ":POKE  198,0 

380  GET  A$  :  IF  A*OCHR*(  13) THEN  380 
390  RETURN 

4øø  PR I NT "(CLR. CRSR  HØJRE3, 

HVID) "LEASE  SELECT  SKILL  LEVEL  1- 

410  PRINT" (CRSR  NED, CRSR  HØJRE3, 

RVS  ON, HVID)-**  KRVS  OFF, SPACE, 
LILLA)=  (CVAN >123456789  < LILLA )= 
(RØD, RVS  ON)^\-^*•^IL-(RVS  OFF) 
POKE  198,0 

420  GET  A$ : IF  A*<"l"OR  A*>"9"THEN  420 
430  REM  MH=MOUNTRIN  HEIGHT  TM=TIME  F 
U-FUEL  AM=AMMO  WI=WIND  SPEED 
440  LV=VAL(A»)  _ 

450  MH=L V* 1 1 05+ ( I NT ( RND ( 0 ) *500 ) ) 

460  TM=( 10-LV)*24ø+( INT (RND(0>*20) ) 

: IF  TMC960  THEN  TM=960 
470  FU=50+( (9-LV)*5)+( INT(RND(0)*30> ) 
480  RM=1 l“LV+( INT (RND(0)*5) ) 

490  WI=INT(LV/3) 


660  PRINT”  ( BL AA)*  (HVID)  l(ORANGE)M 
ESSAGE  FROM  COCKPIT  COMPUTER  (HVI 
D>  I  (BLAA)*" 

670  PRINT"  *  (HVID)  I  <RØD>- 

(HVID)I  (BLA 

A)#“ 

680  PRINT"  (HVID)  1 - - 


690  SC*="( HOME. CRSR  NED15) 
7øø  PRINT” - 


71ø  PRINT” (CRSR  NED 10 


720  POKE  54283. 16  POKE  54284,0 
POKE  54285, 2øø  POKE  54280,0 
POKE  54283 . 1 7 

730  POKE  54276, 128  POKE  54277,0 
POKE  54278, 200  POKE  54276,129 
740  C*=CHR*( 13) : UCf="DOWN" : FL$="OFF" 
BR*="OFF" : TI*=" øøøøøø" : GOSUB  1680 
EE=ED 

750  TH=ø : MEJ=" (HOME, CRSR  NED2, 

CRSR  HØJRES, SPACE30, 

CRSR  VENSTRE27  > " 

760  ME* =MEt+ " (CRSR  VENSTRE3) " 

770  J=PEEK( 56320) : GET  Ht  P= J  AND  16 
J=J  OR  16 


22 


60+TH 

1250  POKE  54280, 80+SP/6. 5 
1260  IF  SP<TH*lø  AND  BR*="OFF"THEN  S 
P=SP+10 

1270  SP=SP-(CL+1 )/5  SP=INT(SP) 

1280  IF  flLOØ  THEH  X=øG0T0  1300 
1280  X=X+SPIF  X>20000  THEN  fi=3 
: GOTO  2020 

1300  IF  CUP  I  THEN  CL=CL+.5*FP 
1310  IF  CUP  I  THEN  CL=CL-1 
1320  IF  CL>0  THEN  SP=SP-CL/2 
1330  IF  CL<0  THEN  SP=SP+CL/2 
1340  IF  RIK50000  THEN  RD=HD+CL 
' RL=INT( AD) 

1350  flD=RD~( 10-SPX50) : IF  RD<0  THEN  fi 
D=øflL=INT(RD) 

1360  FL=FL-TH/1000FU=INT(FL) 

-IF  FU<=0  THEH  TH=ø 
1370  IF  BR$O"0FF"RND  SP>«=10  THEH  SP 
=SP-20 

1380  IF  HK1  THEH  1430 
1390  IF  RND(ØK.9+((12-LW100)THEN 
1430 

1400  IF  RND(0»=.-5  THEH  1420 
1410  R0=R0+UI  PRINT  ME*"UIND 

:";rbs<ui):gosub  1820  goto  1430 

1420  RO=RO-UI  PRINT  MEf'UIND  :";WI 
: GOSUB  1820  GOTO  1430 
1430  IF  SP<0  THEN  SP=0 
1440  IF  RLOø  RND  RLOØ  RND  RND<1». 
95  THEN  PRINT  MEf'GROUND  WRRNING 
! " : GOSUB  1320 
1450  IF  RL>0  THEN  1510 
1460  IF  UC*O"D0UN"THEN  fl=10 
:G0T0  2020 

1470  IF  CT>=7øø  RND  CT<=750  RND  CC=0 
RND  SP=ø  THEN  GOSUB  2560 
-  GOTO  1210 

1480  IF  CT>20  RHD  CT<700  THEN  R=4 
: GOTO  2020 

1490  IF  CT>750  RHD  CT<1500  THEH  R=4 
GOTO  2020 

1500  IF  CL08  THEH  A=5G0T0  2020 
1510  IF  CT=2øø  OR  CT=250  THEN  K*=ME* 
♦  '•riOUNTRIN  URRN  I  HG  !  "  GOSUB  1890 
1520  IF  CT0300  THEH  1550 

*C  Ql  /■  -MU  TUCKI 

i  540  K$=nE*+'"'nOUNTR  I  NS  'cROSSED " ’ 
GOSUB  1890 

1550  IF(CT=35ø  OR  CT=400)RND  ES=0  TH 
EH  K*=ME*+"ENEMV  PLANE  URRNING  !" 
•GOSUB  1890 

1560  IF  CT0550  THEN  1600 
1570  IF  ES=1  THEH  PRINT  MEfRUNURV  I 
N  SIGHT."  GOSUB  1820  GOTO  1600 
1580  GOSUB  2520  IF  CK=1  RND  RHD(ø». 
8  THEN  2650 

1590  K*=ME*+"ENENY  RTTRCK  NRRNING  1 " 

: GOSUB  1 820 -R=7: GOTO  2020 
1600  HE=HE+INT((RO*SP)/500) 

- IF  HE<0  THEH  HE=360-R0 : GOTO  1620 
1610  IF  HE>359  THEN  HE=HE-36ø 
1620  GOSUB  2520- IF  CK=1  THEN  PRINT  M 
EJ" ENEN Y  IN  GUH  RRHGE  !" 

-GOSUB  1850 
1630  GOSUB  2680 

1640  IF  CL*10>SP  THEH  R=8  GOTO  2020 
1650  ED=INT  (EE) 

1660  IF  RND(0)>. 9  THEN  EN=EN+INT (RND 
(0>*3>-1 
1670  GOTO  770 

1680  PRINT" (HOME, CRSR  NED16)THRUST 
(CRSR  VENSTRES)" i TH; 
"(CRSR  VENSTRE >X" 

1690  PR I HT "FLAPS  ■  ";FL* 

1700  PRINT" UNDERCRRR .  ■  “JUC* 

1710  PR I NT "ALT I  TUDE 

(CRSR  VENSTRE6) “ ; RL 
1720  PRIHT”PITCH 

(CRSR  VENSTRE3) " ; PI 
1730  PRIHT"RIRSPEED 

(CRSR  VENSTRES) ";SP 
1740  PRINT" (CRSR  0P6)"; 

1750  PRINT" (CRSR  HØJRE23) BRAKES 
:  " ; BRt 

1760  PRINT" (CRSR  HØJRE23)TIME 
:  ";TIJ 

1770  PRINT" (CRSR  HØJRE23)FUEL 
(CRSR  VENSTRE4) " ; FU 
1780  PRINT" (CRSR  Hø  JRE23 ) HERD I NG 
(CRSR  VENSTRE4)";HE 
1790  PR I HT "(CRSR  HØJRE23)R0LL 
(CRSR  VENSTRE4 ) “ ; RO 
1800  PR I HT "(CRSR  HØJRE23) DISTANCE 
:  " ;  CT 

1810  RETURN 

1820  POKE  54290, 32: POKE  54291,0 
POKE  54292,200 

1830  POKE  54290, 33: FOR  1=1  TO  6 
1840  FOR  S=100  TO  50  STEP-3 
POKE  54287 , S : HEXT : NEXT 


POKE  54290, 32 : POKE  54287,0  RETURN 
1850  POKE  54290, 32: POKE  54291,28 
POKE  54292,0 

1860  POKE  54287, 50  POKE  54290,33 
FOR  S=1  TO  500  HEXT  RETURN 
1870  POKE  54290 -32: POKE  54291,0 
POKE  54292,200 

1830  POKE  54287,1  POKE  54290,33 
FOR  S=1  TO  1000  HEXT 
POKE  54290, 32  RETURN 
1890  POKE  54287,0  POKE  54290,64 
1900  POKE  54292, 200  POKE  54290,65 

POKE  54289, 100FOR  I=t  TO  LEH(KJ) 
1910  A*=MID*(K»,I,1>:PRINT  Rf; 

1920  U=RSC(fl*>-64 

1930  IF  U<1  OR  W>26  THEN  NEXT  PRINT 
RETURN 

1940  MC*=MC*(U> 

1950  FOR  X=1  TO  LEN(MCJ) 

1960  S*=MIDt(MC*,X,l> 

1970  IF  S*=''-"THEN  POKE  54287,70 
FOR  D=1  TO  50  NEXT  POKE  54287,0 
GOTO  1990 

1980  POKE  54287,70  FOR  D=1  TO  10 : NEXT 
POKE  54287,0  GOTO  1990 
1990  FOR  D=1  TO  5  NEXT  NEXT 
2000  FOR  D=1  TO  20  NEXT  NEXT  PRINT 
: RETURN 
2010  STOP 

2020  CP=ØPOKE  54273,0  POKE  54230,0 
POKE  54287,0 

2030  POKE  54276, 128  POKE  54273,0 
POKE  54278,0  POKE  54277,29 
POKE  54294,160 
2040  POKE  54280,0 
2050  FOR  S=1  TO  løø  NEXT 

POKE  54273, 10: POKE  54276-129 
FOR  S=1  TO  100 

2060  POKE  53280. S/4  POKE  54294, 200-S 
: POKE  54273, 50-(S/3) = NEXT 
POKE  53280,0 

2070  K*=ME*+"RIPCRRFT  DESTROYED. . . GR 
ME  OVER"  GOSUB  1890 
2030  FOR  S=1  TO  2øøø  NEXT 
2090  PRINT" (CLR, CRSR  HØJRE2, 

GRØN)RERSON  FOR  RCCIDENT  :(HVID)“ 
2100  ON  R  GOSUB  2140,2150,2160,2170, 
2180,2190,2200,2210,2220,2230 
2110  PR I NT "(CRSR  NED -CRSR  HØJRE, 

GUL) PRESS  SPACE  TO  CONTINUE. " 

POKE  193,0 

2120  GET  Rt  IF  RJO"  "THEN  2120 
2130  GOTO  2240 

2140  PRINT" (CRSR  NED) UNDERCRRR I AGE  R 
EMOVED  ON  GROUND. “  RETURN 
2150  PPI  NT  "(CRSR  NED)TIME  HRS  RUN  OU 
T. “ : RETURN 

2160  PR I NT "(CRSR  NED ) OFF  THE  RUNWfiY . " 

: RETURN 

2170  PRINT” (CRSR  HED)CRRSHED  INTO  GR 
OUND. " : RETURN 

2138  PRINT" (CRSR  NED)CRRSH  LANDING." 

: RETURN 

2190  PR I NT "(CRSR  NED'CRRSHED  INTO  NO 
UNTRINS."  RETURN 

2200  PR I NT "(CRSR  NED)SHOT  DOUN  BY  EN 
EMV  PLRNE.": RETURN 
2210  PR I NT “(CRSR  NED)STRLLED. TOO  MUC 
H  CL  I MB... TOO  LESS  SPEED. : RETURN 
2220  PRINT" (CRSR  HED)BRIL  OUT." 

RETURN 

2230  PRINT" (CRSR  NED)UNDERCRRRIRGE  N 
ASN'T  LOUERED. "  RETURN 
2240  CC=CT*.2  PRINT" (CLR. 

HVID)YOU  COMPLETED ( GUL )",CC; 
“(HVID)MILES. “  IF  CP=0  THEH  2280 
2250  B=INT((TM-TI/60)/50> 

PRINT" (CRSR  NED. GRØN) TIME  BONUS 
: (HVID) " , B : CC=CC+B 

2260  PRINT" (CRSR  HED, GRØN)FUEL  BONUS 
: (HVID)"; FU*2 : CC=CC+ ( FU*2 ) 

2270  B=LV*5ø  PRINT" (CRSR  NED, 

GRØN) LEVEL  BONUS  (HVID)";B 
CC=CC+B 

2280  FOR  S=1  TO  2øøø  NEXT 

PRINT" (CRSR  NED. HVID) TOTAL  SCORE 
(GUL)”;CC 

2290  PRINT” (CRSR  NED)WHICH  GIVES  VOU 
THE  RRNKING" 

2300  PRINT" (CRSR  NED) OF  " 

FOR  S=1  TO  3000  NEXT 
2310  X=INT (CC/100) 

2320  IF  X=ø  OR  X=1  OR  X=2  THEN  R*="B 
EG I NNER. " 

2330  IF  X=3  OR  X=4  OR  X=5  OR  X=6  THE 
N  Rt= "PILOT. " 

2340  IF  X=7  OR  X=8  THEN  Rt="COMMRNDE 
R." 

2350  IF  X=9  OR  X=lø  OR  X=ll  THEN  flt= 
"RCE  ! " 

2360  IF  X>1 1  THEN  fl*=" SUPERMAN  !" 


2370  PRINT  FOR  I=ø  TO  161  POKE  646,1 
PRINT" (CRSR  OP, CRSR  HØJRE7)";A* 

: NEXT  PRINT 

2380  PR I NT "(CRSR  NED2, 

CYRN > - 

2390  PRINT"  (HVID)PRESS  RNV  KEY  TO 
RESTART  THE  GAME" 

2400  PRINT" (CYRN) - 

- " ; : POKE  198,0 

UflIT  198,1 

2410  PRINT"(CLR)";  '•  IF  CC>=HI  THEN  HI 
=CC 

2420  IF  CCOHI  THEN  30 
2430  PRINT"ENTER  YOUR  INITIRLS  PLERS 
E  ...(CRSR  VENSTRES)"; :X=1  HI J="" 
POKE  198,0 

2440  GET  RJIF(fit<"fi"OR  Rt'"Z")RND  R 
*<>CHR*(20)THEN  2440 
2450  IF  RJOCHRJ ( 20 ) THEN  2480 
2460  IF  LEN(HI*)=0  THEN  2440 
2470  HI J=LEFTJ <HI$ , LEN(HIJ )-l ) : X=X-1 
: PRINT" (CRSR  VENSTRE). (CRSR  VENST 
RE)“;  GOTO  2440 

2480  PRINT  R*;  HIt=HIt*R$  X=X+1 
IF  X<4  THEN  2440 
2490  GOTO  30 

2500  POKE  54283, 128  POKE  54284,29 
POKE  54285,0  POKE  54280,10 
POKE  54294,220 

2510  POKE  54283,129  FOR  S=1  TO  2000 
NEXT  GOSUB  1890: RETURN 
2520  REM 

2530  CK=ø  IF  ES=ø  RND(RL+lø>EN  RHD  fl 
L-10<EN)AND  ED<=5  RND  ED>=-5  THEN 
CK=1 

2540  RETURN 

2550  EN=øEH=INT(RND(ø)*360) :ED=0 
GOTO  1210 

2560  IF  HEOEH  THEN  R=4  G0T0  2020 
2570  IF  UC*O"D0WN"THEN  fi=lø 
GOTO  2020 

2580  K*=MEt+"LRNDED  SRFELY. " 

: GOSUB  1890 

2590  FOR  B=1  TO  løøøNEXT 
2600  PRINT" (HOME, CRSR  NED9, 

CRSR  HØJRE , HV ID) CONGRRTULHT I ONS  ! 
LE VEL " ; L V " COMPLETED  ! " 

2610  PR I HT “(CRSR  HøJPE, 

GRØN ) - 

"FOR  S=1  TO  2000  HEXT 
GOTO  2240 

2620  POKE  54237,0  POKE  54290,32 
POKE  54292 , ø : POKE  54291,23 
POKE  54290,33 
2630  POKE  54237,5 
2640  RETURN 

2650  PRINT"ENEMV  RTTRCK  URRNING  !" 
GOSUB  1370 

2660  IF  RND(0)>. 5  THEN  PR I NT " UE ' RE  H 
IT  ! " : GOSUB  1 820 : R=7 : GOTO  2020 
2670  K*=ME*+"ENEMY  RTTEMPT  FRILED  !" 

GOSUB  1890  GOTO  1210 
2680  IF  HE=EH  THEN  EE=EE-1 : RETURN 
2690  EE=EE+1 : RETURN 
27øø  PRINT" (CLR) ";CHRt(8>; 

: POKE  53280, 6  POKE  53281,6 
POKE  53265, 27  POKE  53272,21 
2710  GOSUB  2810 

*  2720  FOR  1=54272  TO  54294  POKE  1,0 

NEXT  POKE  54296, 30: POKE  54295,255 
POKE  54294,255 

2730  Kt="(CRSR  NED, CRSR  HØJRE4, 

HVID)P  I  L  O  T  TRRIN 

E  R"  GOSUB  1390 
2740  K*=“ (CRSR  NED2,S0RT, 

CRSR  HØJRE ) COPYR I GHT  1985  R.O. 

D.  SOFTURRE  LTD": GOSUB  1890 
2750  K*=" (CRSR  NED, CRSR  HØJRE7, 
GUDWRITTEN  BY  J. BJERREGRRRD.  " 
GOSUB  1890 

2760  K*=" (CRSR  NED2.CRSR  HØJRE, 

HVID)NOTE  (CRSR  NED) "GOSUB  1890 
2770  K*="COPYING,  LENDING,  HIRING," 
GOSUB  1890 

2780  K*=" (CRSR  NED)BUY-BRCK, 

PUBLIC  PERFORMRNCE,"  GOSUB  1890 
2790  K*=" (CRSR  NED) TV  OR  RRDIO  BRORD 
CRSTING  OR  DIFFUSION  OF" 

GOSUB  1890 

2800  K$=" THIS  PROGRAM  IS  STRICTLY  RE 
COMMENDED  !”  GOSUB  1890 
2810  RESTOREPOKE  53265,27 

FOR  1=1  TO  26  RERD  MC$( I ) ; NEXT 
: RETURN 

2820  DRTfl.-,-. 


2830  DRTR. 
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Du  er  blevet  tårnudspringer 
ved  De  olympiske  Lege.  Støt¬ 
ten  er  maximal  tra  Team  Dan¬ 
mark,  så  de  torventer  et  godt 
resultat. 

Alle  instruktioner  er  indlagt  i 
programmet  så  det  er  nemt  at 
finde  rundt  i  de  mange  mulig¬ 
heder.  Jørn  Falk 
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1230  DfiTfl  "t"  ,  IB,  15, 15,6,6,6,6,7 
124.0  CLS  :  PRINT  RT  ø ,  10;  "TAftRNS 
PRING" 

1250  PRINT  RT  2,8; CMR*  127:CHRt 
32; CHR$  28; CHR*  121, CHR*  32,  CHR* 
74; CHR*  4.8;  CHR*  82, CHR*  78;  CHR* 
32; CHR$  70; CHR*  55, CHR*  76; CHR* 

1260  PRINT  '•••!  TflflRNSPRING  SKAL 
DU  DEFINERE"; 'i "DINE  SPRING  SAR 
MEGET  SOM  MULIGT" 

1268  PLOT  255,121;  DRRU  -1,0:  DR 
RU  0,1:  DRRU  1,0 

1266  PRINT  "POINT  GIUES  EFTER  13 
SKRLREN. " 

1270  PRINT  RT  10 , 1 1; "STYRING" 
1275  PRINT  '"SPRINGER  MED  TASTEN 
H" 

1280  PRINT  "MRUEN  NEDAD  MED  TRST 
EN  8" 

1220  PRINT  "MRUEN  OPRD  MED  TRSTE 

N  5" 

1300  PRINT  "HOUED  OPRD  MED  TRSTE 
N  7" 

1310  PRINT  "HOUED  NEDRD  MED  TRST 
EN  6" 

1320  PRINT  "SIDDER  SIG  NED  MED  T 
RSTEN  L" 

1330  PRINT  “STRAEKKER  SIG  UD  MED 
TASTEN  X" 

1340  PRINT  "SLAAR  EN  KOLBøT  HED 
TASTEN  B" 

1350  PRINT  RT  21,2;  ELRSM  1; "TRY 
K  EN  TRST" 

13eØ  PAUSE  0:  CLS 
1365  RETURN 

1370  CLS  :  PRINT  RT  2,0,  "1.  SPRI 
NG.  " 

1380  PRINT  RT  4,0, "2.  GØR  PARAT, 
OG  5PRING." 

1385  PRINT  AT  6,0, "3.  REKORDEN" 
1320  IE  INKEYJs" 1"  TMEN  LET  vae  = 
1:  CLS  :  RETURN 

1400  IF  INKEY *  — "2"  THEN  LET  v a e  = 
0:  CLS  :  RETURN 

1405  IF  INKEY  *  —  "3  "  THEN  CLS  :  PR 

INT  RT  2, ø, "REKORDEN  ER  ";hc-  PR 

USE  200:  GO  TO  1370 

1410  GO  TO  1320 

17øø  STOP 

2000  RESTORE  2040 

2010  RERD  a* 

2020  FOR  i *0  TO  7:  RERD  a:  POKE 
USB  a  *  t  i  ,  a  :  NEXT  i 

2040  DRTR  "u" ,32,32,32,26, 122, 12 
•5,0,0 

2300  PRINT  AT  3,18;"*" 

2310  GO  SUS  4øøø 

2315  PRINT  RT  1 , 20; “SPRING" 

2320  IF  INKEY  *  —  "h  “  THEN  GO  TO  23 
40 

2330  GO  TO  2320 

2340  LET  3.18:  LET  a*  =  "  I  I" 

2350  LET  b=3 :  LET  b*=" 

2354  PRINT  AT  3,17;"  " 

2356  PRINT  AT  4,17;"  " 

2360  PRINT  AT  b,a,  INK  l;a* 

2364  LET  pu=putl 

2365  IF  pu ■ 10  TMEN  LET  pu=0:  GO 
TO  2370 

2366  GO  TO  2364 

2370  PRINT  RT  b,a;"  “:  LET  a-a  + 

2375  IF  a  >  =20  THEN  GO  TO  240® 
2380  LET  b.btl 
2320  GO  TO  2370 
2400  LET  a  =a  +1 

2405  LET  j*»"  LET  b*  =  "  :  L 

ET  a*-"j":  LET  b*  =  " I" 

2410  LET  b-btl 

2460  REM  HER  FOREGARR  SELUE  SPRI 
NGET 

2480  IF  INKEY  *  — "7"  THEN  LET_scl. 
scltl:  LET  hva-15:  LET  a*-"*":  L 

2420*?F*iNKEY*-"6"  TMEN  LET  S.c2» 
S  C  2 1 1 :  LET  hwa.15:  LET  a*-"|":  L 
ET  b*»"  1" 

2500  IF  INKEY  *  — "8"  THEN  LET  SC3- 
SC3  +  1:  LET  hva.15:  LET  a*-"||": 
lET  b$»" 

2510  IF  INKEY *  — "  S"  THEN  LET  S  C4  = 
stiti:  LET  hva.15:  LET  a*-"^": 
LET  b*-" 

2520  IF  INKEY  *  — "  1 "  THEN  LET  scB  = 
scSil:  LET  hva-10:  LET  a*-"i":  L 
ET  b*-"l" 

2530  IF  INKEY *  — "X "  THEN  LET  «.C6- 
SC6+1:  LET  hva.17:  LET  a*-"*“:  L 
ET  b*."*" 

2540  IF  INKEY*-" b"  TMEN  LET  SC7« 

SC7+1:  GO  SUB  5000 

2700  PRINT  RT  b,a;  INK  l;a* 

2710  PRINT  RT  btl,a;  INK  1;  b* 
2220  TF  b .20  THEN  LET  h*-"**"-.  L 

300^*LE?  pu.putl 

3010  IF  pu —b va  THEN  LET  pu-Ø:  GO 
TO  3030 

3020  GO  TO  3000 

3460  IF  b-12  TMEN  PRINT  RT  10,20 
;  INK  5; :  PRINT  RT  12,23;  INK 

34&S*  IF  b  — 12  THEN  IF  a*-"  |"  TMEN 
LET  do -1 

3467  IF  b*12  THEN  IF  a * < > "  |“  TME 
N  LET  do  — 0 


THEN  LET  <_•  c  6  *■ 

LET  a *-"»":  L 


2522  OT  b+l,a;  INK  5;J* 

f*77  b “20  THEN  GO  TO  3500 

3480  LET  b  =  btl 
3420  GO  TO  2420 

3500  LET  a*-"||":  LET  a-atl:  LET 
b.btl 

•3505  PRINT  RT  12,20;"  ":  PRINT  A 
T  12,23;"  ” 

3510  PRINT  AT  b,a;  INK  1,  PAF-ER 
Isil  GO  TO  6000 

4000  RESTORE  4030  FOR  i  =0  TC>  13 
4010  RERD  a* 

4020  FOR  o-Ø  TO  7:  READ  p:  POKE 
U5R  a*tO,p:  NEXT  o 
4025  NEXT  i 

4030  DRTR  "a" ,0, 128,255,253,230 , 
48 ,31,0 

4040  DRTR  " b" ,0, 7,255, 255, 135,0 , 
0,0 

4050  DRTR  "C"  ,28,  12,  12, 12  v  1,2,30, 
30 , 30 

4060  DATR  "d" ,30,30,60, 124,76,24 
, 86 , 76 

4070^001-0  "e"  ,0,0,26,208,240,28, 

4080  DRTR  •’ t  ",254,255,240,240,24 
0 , 254 , 127, 0 

00?!ø  120  "9" 105 ' 121,51,54,6 

4100  6aTA  "h", 120, 120, 120,48,48, 
48 , 48 , 56 

4110  DATR  "i " ,0,0,0,225,255,255, 
224 ,0 

4120  DRTR  "J" ,240,24, 12, 103, 121, 
255 , 22 , 0 

4 130  DRTR  "  k  "  , 153 , 182 , 182 , 153 , 15 
3, 126,60,60 

4140  DRTR  "»",60,60,60,60,102,66 
, 122,122 

4150  DRTR  "n" , 160,2,80,37,21,73, 

41&0  DRTR  "o" ,8, 142,32,20,203 ,64 

, 180,224 

4500  RETURN 

5000  FOR  z  * 1  TO  4 

5010  IF  Z=1  THEN  PRINT  RT  b,a,  I 
NK  1;  "m" 

5020  IF  z  *2  THEN  PRINT  RT  b-J  ,a; 

INK  1;  “*"  :  PRINT  RT  b,a;"*" 

5030  IF  z  *3  THEN  PRINT  AT  b,a;  I 
NK  1;  "J  |" 

5040  IF  z  »4  THEN  PRINT  RT  b-3,a; 
INK  1;  "  |" :  PRINT  RT  b,a;"|" 

5044  LET  pu.putl 

5045  IF  pu  =5  THEN  LET  pu=0  OO  T 
O  5050 

5046  GO  TO  5044 
5050  PRINT  RT  b-l,a," 

5060  PRINT  RT  b,a;“ 

5070  NEXT  z 

5080  PRINT  RT  b,a;  INK  1,  "  i" :  PR 
INT  RT  b-tl , a;  "  |" 

5020  RETURN 
5000  LET  pu.putl 

6002  IF  pu  *200  THEN  LET  pu*0:  GO 
TO  6005 

6004  GO  TO  6000 

6005  CLS 

6007  IF  do  »0  THEN  GO  TO  6080 
6010  IF  s  C  1 > 0  OND  s  c  1 <3  THEN  LET 
score  -s  coretsd 
8015  IF  s  c  1 >2  THEN  LET  scl=ø 
6020  IF  s  c2  >0  RND  sc2<3  THEN  LET 
score.scoretscS 
6025  IF  s  C 2  > 2  THEN  LET  SC2=0 
6030  IF  S  c3  >0  AND  SC3<3  THEN  LET 
sco  re  — s  c o  re  +s  c 3 
6035  IF  s  c 3  > 2  THEN  LET  SC3-0 
6040  IF  S  C4  >0  AND  SC4<3  THEN  LET 
score  *s  c o  re +s  c 4 
6045  IF  S  c4  >2  THEN  LET  SC4-0 
6050  IF  sc5*l  THEN  LET  score *sco 
re  ts c5 

6055  IF  S  C5  > 1  THEN  LET  SC5-0 
6060  IF  S  C6  >0  RND  SC6(3  THEN  LET 
score-scoretsc6 
6065  IF  S  c6  > 2  THEN  LET  SC6-0 
6070  IF  S  C?  >0  RND  S  C7  <3  THEN  LET 
score.scoretsc? 

6075  IF  s  c7  >2  THEN  LET  SC7-0 
8080  PRINT  RT  2, 13; "SCORE" 


O  5 


c2 

6120  PRINT  RT  7, ø, "DOMMER  3:  ";s 

C  3 

6130  PRINT  RT  8,0, "DOMMER  4:  ";s 

C4 

6140  PRINT  AT  2,0; "DOMMER  5:  ";s 

CB 

6150  PRINT  RT  10,0; "DOMMER  6:  "; 

5160  PRINT  RT  11,0; "DOMMER  7:  "; 

s  c? 

6170  PRINT  RT  13,0; "IALT  score 
6175  IF  score >h c  THEN  LET  hc.scG 

6180  PRINT  RT  21,2; "TRYK  EN  TAST 

c — r  Kisrf  or.Ti  " 


,  OL.UNC 

PRINT  ' 

"DISKE 

SUB  1000: 

GO  T 

"DOMMER 

1: 

s 

“DOMMER 

2: 

“i  s 

"DOMMER 

3: 

”;  s 

"DOMMER 

4  : 

s 

"DOMMER 

5: 

" ;  s 

FOR  ET  NYT  SPIL" 
6120  PAUSE  ø:  CLS 
GO  TO  5 


GO  SUB  1000 : 
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■  Hvis  du  går  meget  på  bibli¬ 
oteket.  har  du  sikkert  også  få- 
et  rykkere  for  for  sent  afleve¬ 
rede  bøger.  Med  dette  prog¬ 
ram,  der  egner  sig  bedst  sam¬ 
men  med  en  diskettestation, 
kan  man  holde  styr  på  sine 
hjemlån. 

Hvergang  man  har  været  på 
biblioteket,  starter  man  prog¬ 
rammet  og  vælger  2  på  me¬ 


nuen.  Man  skal  så  indtaste 
aflevringsdatoen  for  de  bøg¬ 
er,  man  har  lånt  samt  navne¬ 
ne  på  alle  bøgerne. 

Hver  gang  man  så  skal  afle¬ 
vere  sine  bølger,  vælger  med 
3  på  menuen  og  indtaster 
navne  på  de  bøger,  man  af¬ 
leverer.  Det  er  nok  kun  at  ind¬ 
taste  starten  på  titlen. 
Endelig  kan  man  når  som 


helst  se  hvilke  bøger,  der  skal 
afleveres  hvornår,  ved  at 
vælge  1  på  menuen. 

Før  programmet  startes  første 
gang,  skal  man  skrive  følgen¬ 
de: 

OPENOUT  "bib.dat" 

PRINT  #9,0,0 
CLOSEOUTD 

Lars  Christensen 


10  ’BIB-file  (c)  by  LCSoft 
12  ZONE  15 

20  INK  0,0:M0DE  2:PRINT  T AB ( 20 ) “ B  I  B  -  F  i  1  e“ 

30  PRINT: PRINT  TAB < 10) " Indtast  dags  dato  ’15,3’  :  "i 
40  SYMBOL  AFTER  256 : 0PENIN " b i b . dat MEMORY  HIMEM-1 
50  f alse= (1=0) : true= ( 1=1 ) 

60  INPUTS9, value. s, antal 
70  DIM  bog* (50) , val ue (50) 

80  FOR  bog=l  TO  antal : INPUT#9, bog* (bog) , value (bog) : NEXT  bog: CL0SEIN: SYMBOL  AFTER 
91 

90  SYMBOL  91 , 126,216,216,254,216,216, 222:SYMB0L  92 , 1 1 8, 200 , 21 4 , 21 4 , 21 4 , 38 , 220 : SY 
MB0L  93,56,0, 124, 198,254, 198, 198:SYMB0L  123,0,0,118, 

26, 126,216, 110: SYMBOL  1 24 , 0 , 0 , 1 1 8 , 204 , 21 4 , 102 , 220 : SYMBOL  125.48,0,120,12, 124,204 
,118 

100  INPUT  i  dato* 

110  p=INSTR ( dato*, "  “):IF  p=0  THEN  PRINT “Duer  ikke,  prlv  igen  !“:G0T0  100 
120  dag=VAL (LEFT* (dato*, p- 1 ) ) : maaned=VAL (MID* (dato*, p+1 ) ) 

130  IF  maaned=0  OR  dag=0  THEN  PRINT"Duer  ikke,  priv  igen  !":G0T0  100 
140  DEF  FNvalue (dag, maaned , aar ) =dag+32*maaned+416*( aar-85) 


26 


Programmer: 

Samtlige  attrykte  listninger 
er  atprøvede  tør  otlentlig- 
gørelse  Forlaget  betaler 
skattetrit  op  til  1000  kroner 
tor  godkendte  læserpro¬ 
grammer  Forlaget  har  ret  til 
at  aftrykke  godkendte  pro¬ 
grammer  i  bladet  og  ollent- 
liggøre  dem  pd  andre 
lagermedia 


150  DEF  FNd ag  <  valne) =va lue  MOD  32 

160  DEF  FNmaaned (value)=value\32  MOD  13 

170  DEF  FNaar (value) = (value\416) +85 

180  aar=FNaar ( value. s) : XF  maaned<FNmaaned ( value. s)  THEN  aar=aar+l 
190  value=FN value ( dag, maaned  ,  aar  ) 

200  CLS:PRINT  TAB(20)"B  IB  File" 

210  PRINT  CHR*(13)CHR*<18) “D. ” dag “/ “maaned aar "  Sidst  brugt  d . "FNdag ( value. s 
) " / "FNmaaned (value. s) "-"FNaar (value. s) “  “antal “b! 
ger  hjemme 

220  PRINTIPRINT  TAB(10)“1  -  Liste  over  blger 
230  PRINT: PRINT  TAB(10)"2  -  L>nt  blger 
240  PRINTiPRINT  TAB  (10)  "3  -  Aflever  blger 
260  PRINT: PRINT  TAB ( 10) “ Indtast  valg  :  "5 

270  INPUT  valg*: valg*=LEFT* (valg®, 1 > : IF  valg*="“  THEN  valg*="l” 

280  IF  INSTR ( " 123” , valg®) =0  THEN  150 

290  0N  UAL (valg*)  GOTO  300,460,540 

300  'Liste  boger 

310  start=false:  bog=l 

320  IF  bog>antal  THEN  420 

330  IF  value (bog) >=value  THEN  360 

* : start=true 

350  G0SUB  680: bog=bog+l: GOTO  320 

360  IF  start  THEN  CALL  &BB18 

365  start=-false 

370  IF  bog>antal  THEN  420 

380  IF  value (bog) -7>value  THEN  410 

390  IF  NOT  start  THEN  CLS:PRINT  TAB (20) "Skal  afleveres  inden  for  1  uge!":start 
=true 

400  G0SUB  680 :bog=bog+l: GOTO  370 
410  IF  start  THEN  CALL  t<BB18 
415  start=false 

420  IF  bog>antal  THEN  CALL  &BB18:G0T0  200 

430  IF  NOT  start  THEN  CLS:PRINT  TAB ( 20) “ \ vr i ge . ■ : star t=true 
440  GOSUB  680: bog=bog+l 
450  GOTO  420 
460  ’ Laane  boger 

470  CLS:PRINT  TAB (20) i "L  I  N  E  B  \  G  E  R“ 

480  INPUT  "Indtast  afleveringsdato  '17  3’  :  ",dato* 

490  p=INSTR  (dato®,  ■  "):  d=VAL  < LEFT*  ( dato®,  p- 1 ))  :’m=VAL  (MID*  ( dato®,  p+1 )  ) 

500  IF  p=0  OR  maaned=0  OR  dag=0  THEN  PRINT"Duer  ikke,  prlv  igen  !“ 

510  a=FNaar (value) : IF  m<FNmaaned (value)  THEN  a=a+l 
520  INPUT  "Indtast  bogens  navn  (eller  'STOP')  :  11 ,  navn® 

530  IF  UPPER* ( navn*) =" STOP"  THEN  640  ELSE  antal=antal +1 : bog* (antal ) =navn»: val ue ( 
antal ) =FNval ue ( d , m , a) : GOTO  520 
540  'Aflevere 

550  CLS: PRINT  TAB(20)j“A  FLEVERE  B\GER” 

560  INPUT  "Indtast  bogens  navn  (eller  'STOP')  :  " ,navn* 

570  IF  UPPER* ( navn*) =“ST0P"  THEN  640 
580  FOR  bog=l  TO  antal 

THEN  6 

610  FOR  x=bog  TO  antal - 1 : bog® ( x ) =bog* ( x  + 1 ): val ue ( x ) =value ( x  + 1 ): NEXT  x 

620  antal=antal-l:PRINT"Slettet. ": GOTO  560 

630  NEXT: PRINT” Ikke  f undet ! “ : GOTO  560 

640  'afslutte 

650  0PEN0UT"bib. dat " 

670  FOfTbog^TO  antal :  WRITES9 ,  bog*  (bog)  ,  val  ue  (bog)  :  NEXT  bog:  CLOSEOUT:  GOTO  200 

680  'Udskrift  ,  ,  u  , 

690  PRINT  FNdag (value (bog) ) "/"FNmaaned (value(bog) ) “-"FNaar (value(bog) ) ,bog*(bog) 

: RETURN 


Hole  in  one 


ST 


■  I  dette  program  kommer 
du  med  VIC-20  pd  golfba¬ 
nen.  For  at  gennemføre  spillet 
skal  du  igennem  9  huller,  og 
til  det  formdi  er  du  i  besiddel¬ 
se  af  9  køller  (hver  kølle  har 
sin  egen  slagstyrke  fra  1  til  9). 
Spillet,  som  er  lavet  til  en  stan¬ 
dard  VIC-20,  er  i  højopløselig 
grafik,  og  er  delt  op  i  to  dele. 
Hvis  du  er  en  nogenlunde  ha¬ 
bil  computer-golfspiller,  skul¬ 
le  det  være  muligt  at  klare  de 
9  huller  pd  36  slag.D 

Lars  Rosendal 


v> 


I 


i  PRiNT-arnronn***  the  vic  open  #***"  print "wm^-hullet  golf  spil" 
3  PR  I  NT  "  WrøErsTBTsTsffsW«  J*«****###***  " 

5  PRINT" MIULRVET  AF  LARS  ROSENDAL  M  1983" 

10  V*37878 : POKEV, 15 

11  READN ,  D  :  I  FN=- 1 THENPOKE V ,  ø  .  POKEV-2 ,  ø  :  POKEV-3 , 0  •  C-0T020 

12  POKEV-3, N : POKEV-2, N : FORT=lTOD  =  NEXT  GOTOl 1 

15  DATA 1 95 , 2øø , 207 , 2øø , 2 1 5 , 6øø , ø , 2øø , 1 95 , 200,215, 2øø , 209 , 6øø , ø ,  2øø 

1 6  DAT A2 1 5 , 400 , 207 , 400 , 1 95 , 4øø , 1 75 , 4øø , - 1 , - 1 

2ø  P0KE5 l,ø: P0KE52 , 28 : P0KE55 , ø : POKE56 , 28 = CB=7 1 68 
25  READA: IFA=-lTHEN4ø 
30  F0RN=øT07 : READB : P0KECB+N+8#A , B : NEXT 
35  00T025 

4ø  PRINT'TEiIrø  BEHØVER  DU  MI NSTRUKST JONER?  (J/N)" 

50  GETA* : IFA*=" "THEN50 
55  I F A*= " J " THEN70 


1.  del 


60  IFA$="N"THENPRINT"KO:i.K.  TRVK  'NEW'  OG 


•LOAD  OG  RUN 


W'  GOLF  SPIL' 


65  PRINT "MIHELD  OG  LYKKE!"  END 
70  PR  I  NT "  rXWWFL  YT  MANDEN  TIL  BOLDENM1ED  TASTERNE 
75  PR I NT "MA  -  OP  Z  -  NED  WN-  VENSTRE  M  -  HØJRE" 

80  PR I NT "M( BOLDEN  VIL  FLYTTE  SIGMDIREKTE  VAEKTRA  MAND-KEN  NAAR  DU  RAMMER.)" 

85  PRINT"MrøTRYK  SPACE!" 

9ø  GETA* : IFA*<>"  "THEN90 

95  PRINT'TUHAAR  J1ANDEN  ER  I  KOR-  IREKT  POSSITION  TRYK  T.MDU  SKAL  INDPUTTE  KØLLE" 

100  PR  I  NT  "NR  i  (ET  NR.  FRA  1  TIL  M9).  1  ER  DET  LÆNGESTEW3LAG  OG  9  EP  EN  KØLLE" 

105  PRINT"M50M  KUN  FLYTTER  BOLDENBEN  TAK." 

110  PRINVlrøJTRYK  SPACE!" 

115  GETA*  :  IFA*0"  "THEN115 
120  PRINT'TMFRØV  AT  HOLDE  BOLDEN  »FRA  BANEN  OG  KLARE  »FORHINDRINGERNE." 

122  PRINT"MDET  NORMALE  ANTAL  SLAGGER  36." 

125  PR I NT" »TRYK  NU  'NEW'  »CG  'LOAD'  MDG  'RUN'." 

\  og  pp  i  nt  "  bufi  ri  nn  I  Vk'KF  I- M 

1010  DATAØ, 0,0,0,24,24.«. 0,0  1070  DATRI , 3, 15, 63, 63, 127, 127, 255, 255 

1020  DATA28,  16,24,28,30, 16, 16, 16,  16  J  000  Stås' 254' 25?' P? ' 240 '  192 

1030  DAT A35 , 24 ,  24 , 60 ,  90 , 90  •  60 •  36  ■  1 02  J000  5 

1 ø4ø  DATA36 , 24 , 6& , 1 26 , 255 , 255 ,126, 6ø , 24  00  ^TR4 , 255 , 2^5,127 ,127 , 6, , 63 , 1 5,3 

1 050  DAT A37 ,24,24,24 , 24 , 24 , 24,24,24  l0  WTA32 , 1 7 , 34,68,136, 17,34,68, 136 

1060  DATA26- 255, 255, 255, 255, 255, 255, 255, 255  1120  DATAS, 252, 126, 126,63,63, 126, 126,252,  1 


1 0  P0KE36879 ,217: pp i NT" IT : H=ø : SR=ø : C=3ø72ø 
4ø  P0KE36869 , 255 : A=RND < ø ) 

50  PR  I  NT  "21"  SC=ø 

6ø  A= I NT < RHD < 1 )#5) ♦ 1 : B=INT(PND( 1 >*9) : D-14-A-B : H=H+1  P0KE198.0: 1 FH>9THENG0SUB5øøø 
: G0T0600 

6 1  I FB<5THENZ=779ø = V=23 : V=ø ■ G0T070 
65  2=8ølø : V«-21 :V=2 

7ø  F0RX=øT06 : W=Z+X = POKEW+ 1,216: POKEC+ 1 +W , 5 
75  POKEW+23 ,160: POKEW+45 ,160: POKEW+67 . 1 6ø 
80  POKEW+89 ,216: R0KEC+89+W , 5 : NEXT 

89  IFB=ØTHEN1 lø 

90  FOPX= 1 TOV#BSTEPV : W=Z+V+A+X : POKEW .216: POKEC+W , 5 
95  POKEW+22 ,160: POKEW+44 , 1 60 : POKEW+66 , 1 60 

løø  P0KEZ+88+A+X,  216  :  P0KEC+88+Z+A+X,5  ’■  NEXT 

1 1  ø  FORX=øTOD  :  W=Z+A+ V*B+X :  POKEW+2 .216.:  P0KEC+2+U .  5 
1 15  POKEW+24 . 16ø : POKEW+46 .160: PØKEW+68 . 16ø  NEXT 

120  FORX=øTOD+l : W=Z+A+V«B+X : POKEW+89 . 216 : P0KEC+89+W . 5 : NEXT 

1 30  F=Z+62+ ( V- 1 )*B : POKFF , 28 : POKEC+F , ø 

1 40  POKEF- 1.26: POKEF+ 1,26: POKEF-22 . 26 : POKEF+22 , 26 

1 45  POKEC+F- 1,5: POKEC+F+ 1,5: ROKEC+F-22 • 5 : POKEC+F+22 , 5 

15ø  W=Z+22*V+A  POKEW+25 . 37 : P0KEC+25+W . 2 : POKEW+3 . 36  POKEC+3+W . 5 

1 60  W=Z+R+ V*B  :  POKEW+2 ,  37 :  P0KEC+2+W ,  2 :  POKEW-20 . 36 :  P0KEC-20+W ,  5 

17ø  P0KEF-23, 1  POKEF-21 .2P0KEF+21 .4P0KEF+23.3 

1 75  POKEC+F-23. 5 : POKEC+F-21 . 5 : POKEC+F +21 , 5 : POKEC+F+23 . 5 

176  IFA>2THEN180 

177  PQKEF-2, 5 : POKEF+C-2,6 : POKEF-24, 5 : POKEF+C-24 . 6  POKEF+20, 5 : POKEF+C+20 • 6 
18ø  W=Z+( V-l )*B : POKEW+80, 1 = P0KEC+80+W . 7 : POKEW+81 . 2 : P0KEC+81+W, 7 

1 9ø  POKEW+ 102,4: PQKEC+ 1 02+W , 7 : POKEW+ 103,3: POKEC+ 1 03+W , 7 

193  F0RX=7680T08098STEP22 : POKEX, 230 : NEXT  FOPX=77ølT081 19STFP22  =  POKEX . 230  NEXT 
200  PPINT"<«HUL  NR. "H 

2 1  ø  B=Z+45  :  BC=B+C :  POKEB ,  ø  :  M=7724  :  MC=M+C  :  POKEM ,  35 :  POKEMC ,  2 :  POKEBC ,  ø 

220  N=23ø  :  NC=  1  :  Q=  1 6ø  :  QC=  1  :  V=36878 

4øø  P 1  =PEEK  (  1 97  )  :  I FP 1  =  1 7THENDM=-22 :  GOSUB 1  øøø 

405  I FP1=33THENDM=22: GOSUB 1000 

410  I FP 1 =28THENDM=- 1 : GOSUB 1 øøø 

415  JFP 1  =-36THENDM=  1  :  GOSUB  1  øøø 

420  I FPI =5øTHENG0SUB2øøø 

43ø  POKE 198,0:1 FP=28THENP=ø : G0T050 

44ø  G0T04øø 

6øø  FORX= 1 T06000 : NEXT : P0KE36869 , 24ø : PR I NT "  D"  : END 
løøø  TF < M+DM ) <77ø20R ( M+DM ) >8 1 85THENBM=ø : RETURN 


2.  del 


lølø  P2=PEEK <  M+DM  > : IFP2=ø0RP2=360RP2=370RP2=280RP2=5THENDM=ø ■ RETURN 
1 020  PØKEM , N : POKEMC / NC : N=PEEK (M+DM) : NC=PEEK (MC+DM ) : POKEV .15' POKEV-2 , 200  POKEV-2, 
0 : POKEV, ø 

1 030  M=M+DM : POKEM , 35  =  MC=M+C  =  POKEMC , 2 : RETURN 

2000  BB=B-M : I FDB= 1 QRBB=- 1 OR ( DB>-24fiNDDB02ø  >  OR ( DB>2øØNDDB<24  >  THEN2004 

2001  RETURN 

2004  POKE  193.0:1  NPUT  "  sCMWIfli'lW-IiIi'WJli'Ii'Irøli'Ii'Ii'ti'Ii'IiiTiiLLE  NP .  " ;  Cl. 

2005  PR  I  NT  "  ^AiMWCWSlIimirønHHWWrt  5"  :  IFCL<1 0PCL>9THEN2øø4 

2006  I FQC=2470RQC=23 1 OROC= 1 670RQC=70RQC=390RQC=230RCL =9THENR= 1 : G0T02009 
2Q08  R=lø-CL+INT<RND<  1  )*<  12-CLV2) 

2009  I FQ=32THENR=R- 1 

20 1 2  SC=SC+ 1  :  PR  I  NT  "  aWSTgMiWiWifcTiTljBLFIG  " ;  SC 

2014  U=B+R#DB 

2015  P=P.EEK(W)  :  IFP=360PP=37THENW=U-DB  :  G0T0201 5 
2?20  I FW<77240RW>8 1 63THENW=B : RETURN 

2023  FORX=BTOWSTEPDB : P=PEEK(X> = IFP=23øTHENW=X-DB = G0T02025 

2024  NEXT : P=PEEK(W) 

2025  I FW=MTHEN : W“W- 1 

2026  POKEV/ 15 : F0RX=1T02 : POKEV- 1 , 24ø : NEXT : POKEV- 1 , «  =  FøPX=ØT02øø : NEXT 

2027  F0RX-220T0220- 1 ø*RSTEP-2 : POKEV-2 » X : NEXT ; POKEV , 0  =  POKFV-2 ,ø :  I FP=5THFNG0SUB45ø 

0 

2028  IFU=MTHEN : U*W-1 

2029  I FP=28THENG0SUB4øøø : RETURN 

2030  POKEB,  0  :  B»W :  Q=PEEK(B)  :  POKEB,  0  :  POKEBC .  QC =  BC=B+C  :  QC=PEEK(BC>  :  POKEBC .  O  :  RETURN 
4000  POKE V / 1 5 : POKEV- 1 , 24ø  FORX= 1 T02  =  NEXT : POKEV . 0 

4øø5  PRINT'TXMHUL  NR. "H" BRUGTE  DU  M"SC, "SLAG" : SR=SR+SC 
4010  PRINT" SMrørøTTOTflL  "SP"SL8G" : F0RX=lT05øøø : NEXT : PETURN 

4500  PR  I  NT "  aWBrørølWWrøslWIfWfMrøfll  VANDET  DU  TABER  ET  SLAG«"  :  SC=SC+1  :  W=W-1 
4592  I FW“F+ 1 9THENW=U-22 

4505  POKEB / Q : B«U : Q*PEEK  <  B  > : POKEBC / QC : BC=B+C : QC=PEEK ( BC > 

4510  FORX*  1 T03000  :  NEXT  :  PR  I  NT  "  aWWtWi'MfiWcHWrtHWK'WPlfWa 

M 

4515  PRINT" SWriTsWsTiWjTiTjTiTiTSLflG"  ; SC  =  RETURN 

5000  PRINT"  flCSBOMDll  HfiR  KLØRET  9  HULLER  »MIE  D  MSR"  SLOG" 

5010  I FSR>36THENPR I NT " SUMMDETTE  ER  "SP-36"SLØG  OVER  NORMALEN" 

5020  I FSR*36THENPR I NT "  SWHDET  TE  ER  DET  NORMALF" 

5030  I FSR<36THENPR I NT " SNMDETTE*  ER  "36-SR"SLØG  UNDER  NORMALEN " 

5040  RETURN 


Suicide  Mission 


Denne  gang  gælder  det  dit 
liv!  For  nu  skal  du  redde  jor¬ 
den  tor  de  trygt elige  aliens. 
Og  det  er  desværre  en  selv¬ 
mordsmission  -  sir  ren  ikke 
med  at  du  overlever. 

Dette  spil  har  en  glimrende 
grafik  og  hastigheden  er  utro¬ 
lig  god  -  styringen  (joystick 
Port  1 )  er  der  heller  intet  i  vejen 
med.  Kort  sagt  tast  dette  pro¬ 
gram  ind  og  du  vil  ikke  blive 
skuffet.D 

Morlen  Middellart 
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VOU  LANDED 


PROGRAM ;  SUICIDE  MISSION. 709 

0  P=ø :  L“7 :  A=ø  ■'  GOSUB  9500 

1  PR  I  NT  "  <  CLR  V  :  SPR=ø  :  POKE  V+16, 1 

2  PRINT  CHR*<5> 

3  PRINT  CHR*<142> 

4  A=<RND< 1 ) ) 

5  M=INT<A#2øø>+2ø 

10  PRINT"  / - 


11  PRINT"  I  POINT: ";P;  PRINT"  LI 

ves: ";l; 

12  POKE  1184, 66: PRINT  POKE  1222,93 

13  PRINT" '■■■  -  - 

14  POKE  2042, 14P0KE  V+4,M 

:POKE  V+5, løø : POKE  V+21 , 5 : SPR=70 

15  FOR  X=1  TO  320  STEP  5  SPR=SPR-5 
:POKE  V, SPR 

16  IF  SPR=ø  THEN  GOSUB  9øøø 

17  A=PEEK  <  5632 1 > : IF  H=239  THEN  løø 

18  NEXT  X 

19  U=1944:H=1945:P0KE  1984,32 
: POKE  1985, 32  GOSUB  97øø 

20  FOR  X=1  TO  lø 

21  POKE  H, 77: POKE  u,78 

22  POKE  H+39, 32 ■ POKE  U+40,32 

23  H=H-39 : U=U-4ø 

24  NEXT  X: GOSUB  9740 

25  L=L-l:IF  L=-l  THEN  200 

26  GOTO  1 

løø  POKE  204 1 , 13 : POKE  V+40, 1 
: POKE  V+21,7 

llø  FOR  X=225  TO  løø  STEP-5 
12ø  POKE  V+2, SPR  U1I=X: POKE  V+3, MI 
15ø  NEXT  X 

151  A=M-10 

152  IF  SPR>A  THEN  2øøø 
160  POKE  2 1,0: GOTO  25 
200  PRINT ”<CLR)" 

2øl  FOR  X=1  TO  lø  PRINT  NEXT  X 

210  PRINT"  GAME  OVER" 

220  POKE  V+21 , 0 : FOR  X=1  TO  500 : NEXT  X 

230  GOTO  løøø 

330  P=P+lø 

340  FUEL=FUEL+1 

345  IF  FUEL=10  THEN  6øøø 

35ø  EX=EX+1 : IF  EX=2ø  THEN  GOSUB  10000 

36ø  GOTO  1 

løøø  PRINT" < CLR) " 


1010  IF  P>PQI 

THEN 

GOSUB  9900 

1020  PRINT"  /— 

1025  PRINT"  1 

1030  PRINT"  1 

1 

SUICIDE  MISSI 

ON 

lø4ø  PRINT"  1 

1" 

1050  PRINT" 1 

WRITTEN  «  PROGRAM 

MED  BY 

1060  PRINT"  1 

lø7ø  PRINT"  1 

MORTEN  MIDDELF 

ART 

1" 

1080  PRINT"  1 

1" 

1090  PRINT  v — 

_ 

liøø  PRINT 
liøl  PRINT 

lllø  PRINT"  TODAY 'S  HIGHEST 

112ø' PRINT  POI 
1130  PRINT 

114ø  PRINT"  PERFORMED  BY 

1150  PRINT  NAJ 


1160  FOR  X=1  TO  8  PRINT  NEXT  X 
1170  PRINT"  PLEASE  PRESS  FIRE  TO 
BEGIN  " 

12øø  POKE  V, 1POKE  V+2, 1 : POKE  V+4, 1 
POKE  V+l, 2øø  POKE  V+3,2øø 
:POKE  V+5, 2øø  POKE  V+21,7 
1210  FOR  X=1  TO  2øø : POKE  V+4,X:NEXT  X 
1240  FOR  X=1  TO  15ø : POKE  V+2-XNEXT  X 
1250  FOR  X=1  TO  løø  POKE  V,X:NEXT  X 
1399  A=PEEK( 56321 ) :  IF  A0239  THEN  13 
99 

14øø  FOR  X=2øø  TO  250  POKE  V+4,X 
: NEXT  X 

1410  POKE  V+16, 4 

1420  FOR  X*1  TO  50  POKE  V+4, X  NEXT  X 
1430  FOR  X=2øø  TO  150  STEP-1 
POKE  V+5, X: NEXT  X 

1440  FOR  X=løø  TO  15ø : POKE  V,X:NEXT  X 
1450  FOR  X»2øø  TO  185  STEP-1 
POKE  V+3,X:NEXT  X 
1460  FOR  X=15ø  TO  250 : POKE  V,X 
POKE  V+2, X: NEXT  X 
1465  POKE  V+16, 7 : FOR  X=1  TO  39 
:POKE  V,X; POKE  V+2, X: NEXT  X 
147ø  GOSUB  97øø  FOR  X=185  TO  1  STEP-1 
:POKE  V+3, X : NEXT  X: GOSUB  9740 
POKE  V+3, 185 

1475  FOR  X=39  TO  63: POKE  v,X 
: POKE  V+2, X: NEXT  X 

1480  GOSUB  97øø  FOR  X=185  TO  1  STEP-1 
POKE  V+3, X: NEXT  X: GOSUB  9740 

1481  POKE  V+3, 185  FOR  X=63  TO  50  STE 
P-1POKE  V+2- X: POKE  V,X:NEXT  X 

1485  FOR  X=135  TO  15ø  STEP-1 

: POKE  V+3, X: NEXT  XPOKE  V+2 1,5 
1487  GOSUB  97øø  POKE  2042,15 

: FOR  X=1  TO  300  NEXT  X:POKE  V+2 1,0 
POKE  V+2 1,0  POKE  2042,14 
15øø  GOSUB  9740 
1510  FOR  X=1  TO  3øø  NEXT  X 

1991  PRINT" <CLR>" : POKE  V+21,0 
POKE  V+16, ø 

1992  FOR  X=1  TO  lø  PRINT  NEXT  X 

1993  PRINT"  , - s" 

1994  PRINT"  IGET  READY  I" 

1995  PRINT"  ' - “ 

1999  RESTOREGOTO  ø 

2øøø  MN=M+10 

2001  IF  SPR'-MN  THEN  160 

-•>010  PFM*#«***FXPI  n«: TON*********** 

2011  GOSUB  97øø 

2ø2ø  POKE  V+2 1,5 

2ø3ø  POKE  2042,15  FOR  X=1  TO  100 
NEXT  X 

3000  GOSUB  9740  GOTO  330 
6øøø  PRINT" <CLR)": POKE  V+21,0 
6øøl  FOR  X= 1 345  TO  1793  STEP  32 
POKE  X, 46  NEXT  X 

6002  FOR  X=1400  TO  1461  STEP  4ø 
POKE  X, 46  NEXT  X 

6003  FOR  X=1024  TO  1160  STEP  15 
POKE  X, 46  NEXT  X 

6010  FOR  X=1  TO  21  PRINT  NEXT  X 
6020  PRINT”  -V 

6030  PRINT"  , - '  ' - 


6031  PRINT"  I  LAND  ON  FUE 

L  I" 

6035  SPR=245 
6037  POKE  V+21 , 1 
6040  FOR  X=1  TO  2øø 

6050  POKE  V, SPR  POKE  V+l-X 

6051  A=PEEK( 56321 ) :  IF  A0255  THEN  GO 
SUB  6100 

6060  NEXT  X 

6061  U=171R=175 

6070  IF  SPR>U  THEN  63øø 
6080  GOTO  64øø 
61øø  REM 

6110  IF  A=251  THEN  6200 

6111  IF  A=247  THEN  6250 
6130  RETURN 

62øø  SPR=SPR-1 

6210  IF  SPR=15  THEN  6230 

6220  GOTO  6130 

6230  SPR=15 

624ø  GOTO  6130 

6250  SPR=SPR+1 

6260  IF  SPR=25ø  THEN  6280 

6270  GOTO  6130 

6280  SPR=25ø 

629ø  GOTO  6130 

6300  IF  SPR>R  THEN  64øø 

6310  PRINT"(CLR>" 

6320  POKE  V+21, ø: FOR  X=1  TO  8  PRINT 
NEXT  X 


6330  PRINT" 

6340  PRINT"  UERY  GOOD. 

6350  PRINT"  BONUS  lø  X";L 

6360  BO=L#lø:p=P+BO-FOR  X=1  TO  løøø 
: NEXT  X 

6370  GOTO  7øøø 

64øø  POKE  2ø4ø, 15  GOSUB  97øø 
:  '  POKE  V+21, ø: PRINT" <CLR>" 

FOR  X=1  TO  10 : PRINT: NEXT  x 
6401  FOR  X=1  TO  5øø: NEXT  X: GOSUB  9740 
POKE  2040, 11  POKE  2042,14 
641ø  PRINT"  SORRY  NO  BONU 

S" 

6420  L=L-l:IF  L=-l  THEN  2øø 
6430  FOR  X=1  TO  løøø: NEXT  X:GOTO  7000 
7øøø  POKE  V+2 1,5  POKE  V+l, 225 
: FUEL=ø  : GOTO  1 

9øøø  POKE  V+16, ø: POKE  V+21 , 5 : SPR=25ø 
9øøl  SPR=25ø : RETURN 
95øø  FOR  X=ø  TO  62: READ  A 
:POKE  704+X, A : NEXT  X 
9501  POKE  2040, 1 1 : POKE  2042,14 
V=53248 ■ POKE  V+16, 1 

9505  POKE  V+l, 225  POKE  53281,0 
POKE  5328ø,ø 

9506  FOR  X=ø  TO  62: READ  b 
POKE  832+X, B : NEXT  X 

9507  FOR  X=ø  TO  62: READ  C 
POKE  896+X , C : NEXT  X 

9508  FOR  X=ø  TO  62  READ  D 
POKE  960+X, D : NEXT  X 

9509  POKE  V+39, 1 ; POKE  V+4ø,7 
POKE  V+4 1,2 

9510  EX=ø:  FUEL=0 : RETURN 
9515  REM 

952ø  DATA  0,24,0,0,60,0,0,121,0,0, 
255,0,0,255,0,0,255,0,0,60,0,0,24, 
ø,ø,24,ø 

9530  DATA  0,60,0,0,60,0,16,60,8,1 6, 
6ø,8, 16,60,8,16,255,8,19,255,200, 
31,6ø,248 

9540  DATA  28, 6ø, 56, 16, 6ø, 8, 16, 60, 8, ø, 
24,0 
9545  REM 

9550  DATA  ø, ø, ø,ø, ø, ø,ø, ø,ø,ø,ø,ø,ø, 
ø,ø,  0,0,  ø,ø,  ø,ø,  ø,ø,  ø,ø,  ø,ø,  ø,ø,ø, 
ø,ø,ø 

9560  DATA  0,24,0,0,24,0,0,24,0,0,24, 
0,0,24,0,0,24,0,0,24,0,0,24,0,0, 
24,0,0,24,0 
9570  REM 

958ø  DATA  ø,126,ø,ø,255,ø,l,255,128, 
1,153,128,1,153,128,1,255,128,3, 
255, 192 

9590  DATA  7,255,224,15,255,240,47, 
255,248, 255, 255, 255,255,255,255, 
47,255,248, 15 

96øø  DATA  255,240,7,255,224,3,255, 

192, 1,255, 128,0, 126,0,0,36,0,0, 
231,0 
9610  REM 

9620  DATA  2,4,128,4,0,255,6,32,4,6,2, 
6,31,60,24,24,6,7,3,3,192,2,4,5,0, 
ø,ø, 0,0,0 

963ø  DATA  2, 4, 6, 7, 7, 7, 7, 3, 24, 3, 24, 
192,3,255,0,0,255,255,255,0,0,0,0, 
ø,ø, 0,0, 0,0,0 
9640  DATA  ø,ø, ø,0, ø,ø 

9700  REM******##**#**LYB**##*#*#**#* 
** 

9701  VY=54296 : WY-54276  =  RY=54277 
: HY=54273 = LV=54272 

9710  FOR  X-21  TO  1  STEP-1 : POKE  VY,X 
POKE  WY, 129  POKE  AY, 15: POKE  HY,4ø 
POKE  LY, 2øø  NEXT  X 
972ø  RETURN 
9730  RETURN 

9740  POKE  AV, ø: POKE  WV,0 
975ø  RETURN 
9900  REM 

9910  PRINT" ENTER  YOUR  INITIALS . 

M  • 

99 2ø’ INPUT  NA* 

9930  POI=P 

994ø  PRINT" CCLR>":  RETURN 

løøøø  PRINT" <CLR>"  POKE  V+21,ø 
løølø  FOR  X=1  TO  lø  PRINT: NEXT  X 
10020  PRINT"  GREAT!" 

Iøø3ø  PRINT" 

10040  PRINT"  VOU 'VE  GOT  ONE  BO 

NUS  SHIP!" 

Iøø5ø  L=L+1 : EX=ø : FOR  X=1  TO  løøø 
: NEXT  XPOKE  V+2 1,5  GOTO  1 


Morse-træner 


■  TU  aUe  folk  der  trænger  tU 
lidt  øvelse  i  morsealfabetet,  se 
her.  Denne  lUle  program¬ 
stump  til  en  standard  V1C-20 
morser  et  ord.  som  sd  skal 
skrives  ned.  Programmet  rå¬ 
der  over  et  begrænset  ordfor¬ 
råd.  men  ændringer  i  detail¬ 
lerne  giver  det  nye  mulighe¬ 
der.  □ 


lø  REM  < C > THOMAS  K. 

2ø  REM  MORSER 
35  P0KE36878.,  15 

4ø  PRINT,,^*»*##f»***»**##*****#*#  MORSE  ALFABETET.  m*m**M*WMW****M* " 

5ø  FORU= 1 T029 : READV : NEXTU 

60  V=INT (RND<  1  >#44>+l  :  FORU® 1 TOV :  RF.ADAt  : NEXT  :  RF STORE 
7ø  FORfi= 1 TOLEN <fi$) 

8ø  FORB=  1 TOASC  <  M I Dt  <  A  t  .  A .  1)  -64  READB*  NEXT 
9ø  FORC  = 1 T OLE N <  Bf  > 
løø  P0KE36876, 128 

1 1  ø  FORD®  1  TOVAL <  M  T  D*  <  B*  .  C  .  1  >  >  «  1 00 :  RF  STORF  :  NEXTU :  P0KE36876 ,  ø  :  FORT®  1  T05ø  :  NEXTT ,  C 
1 2ø  FORR® 1 T03øø : NEXTR - A 
13ø  PRTNT"M*HVAD  VAR  OR PET" 

14ø  I NPUT Bf 

i  5ø  I  FR$=Af  THFNF'R  T  NT  "  WrtTA  PET  VAR  "  At :  FORU®  1  TOSøøø  ■  NEXT  :  RON 
1 6ø  PR I NT " NEJ , DET  VAR  " At  FORU® 1 T03øøø : NEXT  RI  IN 

3øø  PAT  014,4111 .4141  .41  1  .•  1  , 1  141 ,441 , 11  11,  1  1  .  J  444, 414,  1411,44,41,444,  1441,4414,14 
1,111,4 

3 1  ø  DATA  1 1 4 ,  1 1  1 4 ,  1 44 , 4 1  1 4 , 4 1 44 , 44 1  1 ,  1 4 1 4 , 444 1 , 1 44 1. 4 ,  HUS .  HAVE ,  SKOV .  FERSKEN ,  SAFT ,  H 
UND 

32ø  DATAF JFRNSVN . COMPl  O  ER . TE , COMMODORE , SKAB , BORD ■ STOL , TELEFON . SKUFFE , SENG , V I NDUE 
,  KN I V 

33ø  DATAKVS , SOS , RAD I O , DANMARK , SVFR I GE , USA , BL VANT .BILL FDF , REOL , Al  IT OMAT , PENGE , MAPP 
E, HVLDE 


32  00 


Selv  om  du  ikke  har  en  Lamb- 
da.  kan  du  faktisk  godt  bruge 
dette  program.  Det  giver  dig 
mulighed  for  at  få  de  eksakte 
mål  for  den  rette  antenne, 
uanset  om  det  er  27.  1 44  eller 
428  MHz. 


Programmet  rummer  kanal 
tabeller,  så  du  ikke  behøver 
at  kende  frekvensen  på  de 
mest  almindelige  TV-kanaler 
Programmet  er  meget  effek¬ 
tivt.  Gunnar  Carlsen 


REM  . . GUNNAR  CARLSEN.  1985. 

REM  .  .  KANAL-ANTENNER.  1985. 

6  PRINT  "PROGRAMMET  FYLDER  “ 1 < 
PEEK  16400+256+PEEK  164011-17301!" 
BYTES" 

10  PRINT  AT  5. 51  "HER  KAN  DU  BYGG 
E  DIN  EGEN" i  AT  7,  51 "KANAL  ANTENNE 

20  PRINT  AT  9. 51 "DEN  PASSER  KUN 
TIL  DEN" i  AT  1 1 . 5 1" PAAGAELDENE  KAN 
AL.  " 

30  PRINT  AT  13. 51 "DEN  AFSAETTER 
ALLE" i  AT  L5.  51 "MA AL  I  CENTIMETER. 

40  PAUSE  900 
50  CLS 

100  PRINT  "VAELG  ANTENNE  TIL  DEN 
PAAGAELDENDE  KANAL" 


105  PRINT 
110  PRINT 
115  PRINT 
120  PRINT 
130  PRINT 
140  PRINT 


'INPUT  KANAL  NUMMER" 

'TV  KANAL  2-11" 

'TV  KANAL  21-60" 
'ELLER  FM  88-108” 


145  PRINT  "ANDRE  FREK.  1" 


150  INPUT  A 

160  IF  All  AND  A <5  THEN  LET  B=A*7+ 

35 

170  IF  Al  4  AND  A(12  THEN  LET  B-A+7 
+  141 

180  IF  Al 20  AND  A<61  THEN  LET  B“A» 
8+304 

190  IF  Al  87  AND  A<109  THEN  LET  B-A 
195  IF  A<2  OR  Al  11  AND  A<21  OR  A)  60 
AND  A<88  OR  Al  108  •  THEN  GOTO  500 
200C=30000/B 
210  CLS 

220  PRINT  AT  0. 01 "MAALENE  ER  I  CE 
NTIMETER.  “ 

225  PRINT  AT  O.  25  i '*  (K.  "!  A!  "  1  " 

230  PRINT  AT  1 . O! “REFLEKTOR  -  "! 
INT  (C+0.  51»101/10iTAB  201" - 

240  PRINT  AT  2. 25!  “I" 

250  PRINT  AT  3. 01 "AFSTAND  =  "1 
INT  (C+0. 197»101/10iTAB  25! “I" 

260  PRINT  AT  4.  25!  "I" 

270  PRINT  AT  5. 0! "DIPOLEN  -  "! 
INT  (C*0.  47*101  /lOiTAB  20!" - *1* 

280  PRINT  AT  6. 25! "I" 

290  PRINT  AT  7.0!  "AFSTAND  =  "I 
NT  (C+0. 115*101/10:TAB  25;  “1“ 

300  PRINT  AT  8.  O! ” 1. DIREKTOR  -  “! 
NT  (C+0. 45*101 / 10! TAB  21!" - 


310  PRINT  AT  9.0!" BOMLAENGDE  » 
INT  (C+0. 37*10}/10iTAB  25! "I" 
320  PRINT  AT  10.  Oi  "AFSTAND 
!  I  NT  (C+0.  18+101/101TAB  25! "I" 
330  PRINT  AT  11. 25! “I" 

340  PRINT  AT  12.  Oi  "2.  DIREKTOR 
i INT  (C+0. 44+101 /lOiTAB  21!” - 

350  PRINT  AT  13.  Oi "AFSTAND 
i  INT  (C+0.  13+101/10ITAB  25! "I" 
360  PRINT  AT  14.  O!  "3.  DIREKTOR 
i  INT  (C+0.  44*101/10!TAB  21!" - 


370  PRINT  AT  15.  O! "BOMLAENGDE  * 

! INT  (C+0. 67*101 / 10 ! TAB  25!"I" 

380  PRINT  AT  16.  O! "AFSTAND 
! I  NT  (C+0. 16*101/10iTAB  25i"I" 

390  PRINT  AT  17.  Oi  "4.  DIREKTOR  - 
! INT  (C+0.44+101 /lOiTAB  21!” - 


400  PRINT  AT  18.  25! "I" 

410  PRINT  AT  19. Oi "AFSTAND 
i  INT  (C+0. 15*101 /lOiTAB  25i"I" 
420  PRINT  AT  20.  O!  "5.  DIRDKTOR 
i  INT  (C+0. 44*101 /10ITAB  21!" - 


430  PRINT  AT  21.  Oi "BOMLAENGDE  =  “ 
! INT  (C+0. 97*101 /lOiTAB  25! "I" 

450  PAUSE  65000 

460  CLS 

470  GOTO  100 

480  SAVE  "  ANTENNE  r" 

490  RUN 
500  CLS 

510  PRINT  ...."SKAL  DU  BRUGE  EN 
ANDEN  FREKVENS  ( J/NI “ i i 
520  IF  INKEY*=" J"  THEN  GOTO  550 
530  IF  INKEY*="N“  THEN  GOTO  50 
540  GOTO  520 

550  PRINT  "INKOD  I  MHZ.  (KHZ/100 

01.  ” 

560  INPUT  B 
570C=30000/ B 
580  CLS 

590  PRINT  Bi"  MHZ.  " i INT  (C+101/1 
O!"  CENTIMETER  =  1  BL." 

600  GOTO  230 


■  Du  skal  forhindre  de  fjendt¬ 
lige  styrker  i  at  sende  deres 
tanks  over  dine  linier.  Dette 
forhindrer  du  ved  at  bruge 
din  mobile  kanon  nederst  pd 
skærmen.  Points  bliver  regnet 
ud  efter,  hvor  hurtigt  du  ram¬ 
mer  den.  og  hvad  farve  tan¬ 
ken  har.  Du  styrer  tanken 
med  1  for  venstre,  2  for  højre 
og  0  lor  at  skyde.  God  fornøj¬ 
else.  □  Michael  Mondrop^_ 


HCT 

HansChi  Thay**T 


V  ■ 


1%  *SS  SSu follSR  ”U”+7: 

Wg8DD^f»PK5  ,  3^5  14,24 

J  ,  60  ,  O  ,  126  ,  ésS  jyJ  j  O  />J  ,\Jj  1 12  , 

4.0  ,  U  ,  112 , 0  ,  U  ,  J  ,  1  >■ -  g  -  ^  i 

2 , 255 , u , u , u , u , ø ,  /  22  4 , 

y  S ;  !lé!S :  i  É?a1 

■  Sftgig ' É ; -Vltef 'S; Ji&’ Ji?  c- 

LS 

80  GO  3UD  900 

100  FOR 

■JSLJéS^«;  NEXT  i 

120  LET  X  =29 :  LET  LI=5:  LET  SC  = 

Ø130  LET  R=0:  LET  B=0:  LET  P=0: 
LET  0  =  0 

iil  printBrt  ø/ø;  ink  s;”liues  = 

210  RND  X  < 2 

9)  -  (INKEY*  =  ”  1"  OND  X>0) 

220  PRINT  - 


j.  nm/  .  u 

220  PRINT  RT  ai.X;  INK  7>  •*« 

260  IF  INKEYJ=  0  THEN  ^RINTOT 
R,B;"“"  RND  Ry4-  =  INT  »O''*  »RND  R 
<  >0;  "  "  RND  (fl/*<>INT  ifl/4)  OR  fl 

=0) :  LET  R=20:  LET  B=X+1:  PRINT 

Isll  j” g?5-IgN  cS^O^R  <  >20 

T330  PRINT*RT  R,B;R*:  LET  R*="  “ 

34>0  LET  P  xfl  —  1 

350  IF  R=P  RND  B>=Q  RND  6 <=0+3 

THEN  GO  TO  800  _  . 

360  PRINT  RT  O/B;  INK  7;  "I  , 

370  IF  0=0  THEN  PRINT  OT  R,B/‘ 

410  IF  0=29  THEN  GO  TO  850 
420  PRINT  OT  P-1,0;"  i  -RT  P,P 

'430  LET  0=0+1 

440  PRINT  RT.P-l/O;  INK  COL;  Ji 
r“;RT  P/0;“*n*" 

490  GO  TO  200 

700  LET  P=4*(INT  <RND»4) +  1J -1 : 
LET  0=0 

710  LET  COe-a-'/INT  fP.'4+l.*.»  „ 

730  PRINT  OT  P-1,0;  INK  COL;  s- 
;  RT  P  .  0  :  "***• 


BEEP 


P,0 
RND  0< 


735  PRU5E  5 

740  PRINT  RT  P-1,0;  INK  COL, 

RT  P/Ø; 

745  PRUSE  S 
790  RETURN 

800  FOR  1=20  TO  50  STEP  2. 
.015,1;  NEXT  I 
805  LET  SC=SC+løØ*  fCOL-3.« 

810  PRINT  RT  P-l^flL"  GT, 

...  ** ;  RT  p  +  l.  O;  RN 

29 

820  LET  R  =0 
845  GO  TO  150 

850  PRINT  RT P-1,0;  INK  COL ;  J 

m"i  RT  P/O;"  **æ" 

852  PRUSE  5  „„  „ 

855  PRINT  OT  P-1,0;  INK  COL; 
j“ ;  RT  P/O;  "  *" 

857  PRUSE  5 

860  PRINT  RT  P-1,31;  " ; RT  P,31 

'865  FOR  1=20  TO  -10  STEP  -2:  BE 
EP  .015,1:  NEXT  I 
870  LE-f  LI=LI  — 1;  IF  LI=0  THEM  G 
O  TO  80 
895  GO  TO  150 

910  INK  2:  CLS  _____  __  ,  _ 

920  PRINT  RT_0,B/^JP««";  RT 


1000  PRINT  RT  8,8 
REL  MONDRUP” 

1010  FOR  1=20  TO  50  STEP 
P  .001,1:  NEXT  I 
1030  IF  SC>HS  THEN  LET  HS=S C 


INK  &; ”©  M1CH 
.  4 :  BEE 


1040  IF  SC>0  THEN  PRINT  PRPER  5; 

INK  ø; RT  11/0; "YOUR  SCORE  ”,SC; 
TRB  17;  "BEST  SCORE  HS 
1050  FOR  1=0  TO  3:  PÉ»INT  INK  1+4 
; RT  14,1*7+4 ;”Jfc-“;RT  15,1*7+4;” 
«2P”:  NEXT  I 

1060  PRINT  PRPER  6;  INK  ø;RT  17, 
4;  løø”;  TOB  il;  ”200”;  TOS  13;  ”300 
”; TRB  25;  ”400” 

1100  PRINT  OT  20/0;  INK  7;  ” 1 .  .  .  . 
LEFT  2.... RIGHT  Ø....FIRE” 

1140  PRINT  »0;RT  1,5;  INK  4;  FLR 
3H  l;  -PRESS  RMV  KEN'  TO  PLfl'/” 

1160  IF  INKEY  $  =  '•"  THEN  GO  TO  116 
0 

1170  CLS 
5000  RETURN 


34  && 


Kalaha 

computer 


■  Dette  program  laver  din 
Commodore  64  om  til  en  ka- 
laha-computer.  Programmet 
tegner  kalahaplanen  på 
skærmen,  hvorefter  du  blot 
indtaster,  hvorfra  du  tager 
•kugler«,  og  computeren  be¬ 
regner  resten.  Programmet  er 
selvforklarende  og  har  iøvrigt 
en  pæn  grafik,  med  en  ha¬ 
stighed  absolut  i  top.D 

Finn  Andersen 


program:  kalaha. unr 

1  REM  KALAHA, MIT  FØRSTE  RIGTIGE  PROO 

RAM 

2  REM 

3  REM  ****************************** 

*** 

4  REM  ********  ***** 

*** 

3  REM  ********  FINN  ANDERSEN  ***** 
*** 

6  REM  ********  ***** 

*** 

7  REM  ****************************** 

*•* 

8  REM 

9  POKE  33280,2:P0KE  33281,2 

:  PRINT"  CCLR)" 

10  M 1  =6  :  M2=6 :  M3=6 :  M4=6  :  M3-6  :  M6=6 :  MK=0 
20  Dl  =6 :  D2-6 :  D3=6 :  D4=6 :  D3=6 :  D6-6  =  DK'Ø 
30  Q=0 

499  REM  **************************** 
*** 

500  GOTO  6000 

510  PRINT : PRINT" (HOME, 

GRAA3)  / - \  , - »  , - »  , - . 

520  PRINT”  I  I  I  I  I  I  I  I 

I  II  I"; 

530  PRINT"  KCRSR  HØJRE3)  KCRSR  HØJRE 
2)  I CCRSR  HØJRE3)  KCRSR  HØJRE2)  ICC 
RSR  HØJRE3)  KCRSR  HØJRE2)  KCRSR  H 
ØJRE3)  KCRSR  HØJRE2)  KCRSR  HØJRE3 
>  KCRSR  HØ JRE2)  KCRSR  HØJRE3)  I"; 
540  PRINT”  I  I  I  I  I  I  I  I 

I  II  r; 

550  PRINT"  ' - ’  ' - '  ' - >  ' - ' 

560  PRINT"  Ml  M  2  M  3  M  4 
M  3  M  6"  PRINT: PRINT 
570  PRINT"  , - , 


380  PRINT"  I  I 

I  i"; 

590  PRINT"  KCRSR  HØJRE  lø)  KCRSR  HØ  JR 
E16)  KCRSR  HØJRE  10)  I"; 

600  PRINT"  I  I 

I  l"J 

610  PRINT"  ' - ' 

620  PRINT"  M  K 

D  K"  PRINT  PRINT 

630  PRINT"  , - ,  , - ,  , - ,  , - s 

640  PRINT"  I  I  l'  I  I  II  I 
I  I  I  r; 

630  PRINT"  KCRSR  HØJRE3)  KCRSR  HØJRE 
2)  KCRSR  HØJRE3)  KCRSR  HØJRE2)  ICC 
RSR  HØ JRE3)  KCRSR  HØJRE2)  KCRSR  H 
ØJRE3)  KCRSR  HØ JRE2)  KCRSR  HØJRE3 
)  KCRSR  HØJRE2)  KCRSR  HØJRE3)  I", 

660  PRINT"  I  I  I  I  I  I  I  I 

I  II  r; 

670  PRINT"' - '  ' - '  ' - '  ' - ' 

680  PRINT”  D  6  D3  D4  D3 
D  2  Dl" 

690  PRINT" C HOME, CRSR  HØJRE, 

CRSR  NED2) "Ml "CCRSR  VENSTRE, 
SPACE)" 

700  PRINT" C HOME, CRSR  HØJRE, 

CRSR  NED18)"D6" CCRSR  VENSTRE, 
SPACE)" 

710  PRINT" CHOME)"  PRINT  TABC8)M2"CCR 
SR  VENSTRE, SPACE)" 

720  PRINT" CHOME, CRSR  NED16)" 

PRINT  TABC8)D5" CCRSR  VENSTRE, 
SPACE)" 

730  PRINT" CHOME) "PRINT  TABC15)M3"CC 
RSR  VENSTRE, SPACE)" 

740  PRINT" CHOME, CRSR  NED16)" 

PRINT  TABC13)D4" CCRSR  VENSTRE¬ 
SPACE)" 

750  PRINT" CHOME) "PRINT  TABC22)M4"CC 


RSR  VENSTRE, SPACE)" 

760  PRINT" CHOME, CRSR  NED 16)“ 

PRINT  TABC22)D3" CCRSR  VENSTRE, 
SPACE)" 

770  PRINT" (HOME)"  PRINT  TABC29)M3"CC 
RSR  VENSTRE, SPACE)" 

780  PRINT" CHOME, CRSR  NED16)" 

PRINT  T AB  C  29 ) D2 " C  CRSR  VENSTRE, 
SPACE)" 

790  PRINT" CHOME)": PRINT  TABC36)M6"CC 
RSR  VENSTRE, SPACE)" 

800  PRINT" CHOME, CRSR  NEB16) " 

PRINT  TABC36)D1" CCRSR  VENSTRE, 
SPRCE) " 

810  PRINT" CHOME, CRSR  NED10)"TABC4)MK; 

TAB C 32) DK 
820  X=X-l: RETURN 

999  REM***************************** 
*** 

3998  REM  *************************** 
*** 

3999  REM  *************************** 
*** 

5000  D6=D6+1 :GOSUB  510 
: IF  x=ø  THEN  RETURN 
5002  D5=D5+1 :G0SUB  310 
: IF  X=0  THEN  RETURN 
5004  D4=D4+1 : GOSUB  510 
: IF  X=0  THEN  RETURN 
5006  D3*D3+1 -GOSUB  510 
IF  X*0  THEN  RETURN 
5008  D2=D2+ 1 : GOSUB  510 
: IF  X=0  THEN  RETURN 
5010  D1=D1+1 : GOSUB  510 
: IF  X«ø  THEN  RETURN 
3011  IF  Q*1  THEN  5014 
5012  DK»DK+1  GOSUB  510 
: IF  X=ø  THEN  RETURN 
5014  M6=M6+1  GOSUB  510 
: IF  X=0  THEN  RETURN 
3016  M5=M5+1  GOSUB  510 


&&  35 


IF  X=0  THEN  RETURN 
5018  M4=M4+1 : GOSUB  51ø 
IF  X«0  THEN  RETURN 
5020  M3=M3+1 : GOSUB  510 
: IF  X=0  THEN  RETURN 
5022  M2=M2+1 : GOSUB  510 
IF  X=0  THEN  RETURN 

5024  M1=M1+1 : GOSUB  510 
: IF  X-0  THEN  RETURN 

5025  IF  Q=2  THEN  50øø 

5026  MK=MK+l: GOSUB  510 
IF  X=ø  THEN  RETURN 

5030  GOTO  5000 

5050  REN  ***•**•*•****•*«•**•••*•••• 
*** 

5060  REM  *************************** 

6000  IF  Q=1  THEN  GOSUB  510 
■ GOSUB  10000 ; GOTO  7000 
6010  IF  0=2  THEN  GOSUB  510 
GOSUB  10050  GOTO  8000 
6020  PRINT" (CLR, GRØN, RVS  ON, 

CRSR  NED8,CRSR  HØJRE3, SPACE, 

CRSR  HØJRE5, SPRCE4, CRSR  HØJRE2, 
SPRCE , CRSR  HØJRES , SPRCE4 , 

CRSR  HØJRE2, SPRCE, CRSR  HØJRE2, 
SPRCE, CRSR  HØJRE2, SPRCE4) “ 

6030  PRINT” (RVS  ON, CRSR  HØJRE3, SPRCE, 
CRSR  HØJRE2, SPRCE, CRSR  HØJRE2, 
SPRCE, CRSR  HØJRE2, SPRCE, 

CRSR  HØJRE2, SPRCE, CRSR  HØJRES, 
SPRCE , CRSR  Hø JRE2 , SPRCE , 

CRSR  HØJRE2, SPRCE, CRSR  HØJRE2, 
SPRCE , CRSR  Hø JRE2 , SPRCE , 

CRSR  Hø JRE2, SPRCE V 
6040  PRINT"<RVS  ON, CRSR  Hø JRE3, SPRCE, 
CRSR  HØJRE, SPRCE, CRSR  HØJRE3, 
SPRCE, CRSR  Hø JRE2, SPRCE, 

CRSR  HØJRE2, SPRCE,  CRSR  HØJRES, 
SPRCE, CRSR  HØJRE2, SPRCE, 

CRSR  HØJRE2- SPRCE, CRSR  HØJRE2, 
SPRCE- CRSR  Hø JRE2, SPRCE, 

CRSR  HØ JRE2, SPRCE)" 

6050  PRINT” (RVS  ON, CRSR  HØJRE3, 

SPRCE2 , CRSR  HØ JRE4 , SPRCE , 

CRSR  HØJRE2, SPRCE, CRSR  HØJRE2, 
SPRCE , CRSR  HØJRES , SPRCE , 

CRSR  HØJRE2- SPRCE, CRSR  HØJRE2, 
SPRCE4 , CRSR  HØ JRE2 - SPRCE , 

CRSR  HØ JRE2, SPRCE)” 

6060  PRINT” (RVS  ON, CRSR  HØJRE3, 
SPRCE2-CRSR  HØJRE4, SPRCE4, 

CRSR  HØJRE2, SPRCE, CRSR  HØJRE5, 
SPHCE4 , CRSR  HØ JRE2 , SPRCE - 
CRSR  HØJRE2, SPRCE, CRSR  HØJRE2, 
SPRCE4 ) “ 

6070  PR I NT ”< RVS  ON, CRSR  Hø JRE3, SPRCE, 
CRSR  HØJRE, SPRCE, CRSR  HØJRE3, 
SPRCE, CRSR  HØ JRE2, SPRCE, 

CRSR  HØJRE2, SPRCE, CRSR  HØJRE5, 
SPRCE, CRSR  Hø JRE2, SPRCE, 

CRSR  HØJRE2, SPRCE, CRSR  HØJRE2, 
SPRCE , CRSR  Hø JRE2 -SPRCE , 

CRSR  HØ JRE2, SPRCE)” 

6ø8ø  PRINT” (RVS  ON, CRSR  Hø JRE3, SPRCE, 
CRSR  HØJRE2, SPRCE, CRSR  HØJRE2, 
SPRCE , CRSR  HØ JRE2 , SPRCE , 

CRSR  HØJRE2, SPRCE4 , CRSR  HØJRE2, 
SPRCE, CRSR  HØ JRE2, SPRCE, 

CRSR  HØJRE2, SPRCE, CRSR  HØJRE2, 
SPACE.  CRSR  HØJRE2,  SPRCE, 

CRSR  HØ JRE2 , SPRCE )” : PR I NT  PR I NT 
•  PRINT • PRINT 

6090  INPUT” (HVID, SPRCE3) ØNSKES  SPILL 
E  REGLER  (J/N)  ”;S* 

6100  IF  S*=”N"THEN  6470 
6110  IF  S*0"J"THEN  6000 
6150  PR I  NT “ ( CLR , GUL , SPRCE 1 4 ) SP I LLERE 
GLER” 

6160  PRINT” (BLRR, SPRCE 14) 


SPRCE2)DU  SKAL  PRØVE  RT  Fflfi  FLERE 
KUGLER  I  ■; 

6180  PRINT”  DIN  KHLRHR  (D  K)  END  JE 
G  FRRR  I  MIN.  " 

6190  PRINT"  DE  FELTER  DU  KRN  TRGE  K 
UGLER  FRR  ER 

6200  PRINT”  MRERKET  MED  'D'  OG  ET  T 
RL.  NRRR  JEG  ”J 

6210  PRINT”  SPØRGER  OM  DIT  NRESTE  T 
RREK  SKAL  DU  ■; 

6220  PRINT"  KUN  INDTASTE  TALLET  PRR 
DET  FRELT  DU  "i 

6230  PRINT”  ØNSKER  RT  TRGE  FRR, 

Sflfi  ORDNER  JEG  ■; 

6240  PRINT”  RESTEN. 


6250  PRINT”  NRRR  JEG  TRGER  KUGLER  O 
P  FRR  DET  FELT  ", 

6260  PRINT”  DU  ANVISER  MIG, 

SAR  GRRR  JEG  MOD  URET 
6270  PRINT”  OG  LREGGER  EN  KUGLE  I  H 
VERT  RF  DE  EF-  "i 
6280  PRINT”  TERFØLGENDE  RUM, 

INDTIL  ALLE  KUGLERNE  "i 
6290  PRINT"  JEG  TOG  OP  ER  LROT  I  NV 
E  RUM. 


6300  PRINT”  HVIS  DEN  SIDSTE  KUGLE  B 
LIVER  LAGT  I  ■; 

6310  PRINT”  KRLRHREN, 

HRR  MRN  LOV  TIL  RT  TRGE  ET  "; 
6320  PRINT”  NVT  SRET  KUGLER  OP.  (SR 
fl  SPØRGER  JEG  ”; 

6330  PRINT"  IGEN).” 

6340  PRINT” (GUL- SPRCE14, 

RVS  ON)TRVK  EN  TAST (RVS  OFF)" 

6350  GET  W*  IF  U*=""THEN  6350 
6360  PRINT” (CLR, CRSR  OP)" 

: PRINT" (HVID, SPRCE2)HVIS  DEN  SIDS 
TE  KUGLE  BLIVER  LAGT  I 
6370  PRINT”  DET  RUM  HVOR  JEG  TOG  BU 
NKEN  OP,  FRRR  ■; 

6380  PRINT"  DU  TILDELT  KUGLEN  PLUS 
ALLE  DE  KUGLER  *; 

6390  PRINT”  DER  FINDES  I  MIT  FELT  L 
IGE  OVERFOR.  DE", 

6400  PRINT"  BLIVER  HLLE  LRGT  I  DIN 
KfiLRHfl" 

6470  INPUT" (SORT, CRSR  NED4, 

SPRCE2)HVEM  SKAL  FORRESTEN  BEGVND 
E  (D/M)  ";H* 

6480  IF  H*="D”THEN  0=2  PRINT" (CLR) “ 

: GOTO  6000 

6490  IF  H*=“M"THEN  0=1  PRINT"(CLR>" 
•GOTO  6000 
6495  GOTO  6360 

6998  REM  *************************** 
*** 

6999  REM  *************************** 

*«• 

7øøø  IF  Ml=13  THEN  X=13M1=0 

: GOSUB  5026 : MK=MK+M1+D6  M1=0' D6=0 
GOSUB  510  0=2  GOTO  6000 
7002  IF  Ml=l  THEN  X=1  Ml=ø: GOSUB  5026 
Q=1 : GOTO  6øøø 

7004  IF  M2=13  THEN  X=13M2=0 

: GOSUB  5024 : MK=MK+M2+D5 • M2=0  D5=0 
: GOSUB  510  0=2  GOTO  6000 
7006  IF  M2=2  THEN  X*2 : M2=0  GOSUB  5024 
•  0=1 : GOTO  6000 

7008  IF  M3=13  THEN  X=13M3=0 

:  GOSUB  5022  ■  MK=MK+M3+D4  M3=ø  •'  D4=ø 
GOSUB  5 1 0 : Q=2 : GOTO  6000 
7010  IF  M3=3  THEN  X=3 : M3=0: GOSUB  5022 
Q=1  GOTO  6000 

7012  IF  M4=13  THEN  X*13  M4»0 

• GOSUB  5020  MK=MK+M4+D3 : M4=0  D3=0 
GOSUB  510  0=2  GOTO  6000 
7014  IF  M4=4  THEN  X*4  M4=0 : GOSUB  5020 
0=1  GOTO  6000 

7016  IF  M5*13  THEN  X=13M5=0 

• GOSUB  50 1 8 : MK=MK *M5+D2 : M5=ø : D2=0 
GOSUB  510-0=2  GOTO  6000 
7018  IF  M5=5  THEN  X=5  M5=0 • GOSUB  5018 
0=1 : GOTO  6000 

7020  IF  M6=13  THEN  X=13'M6=ø 

GOSUB  50 1 6 : MK=MK+M6+D 1  M6=0:D1=0 
: GOSUB  510 : 0=2  GOTO  6000 
7022  IF  M6=6  THEN  X=6 : M6=0 : GOSUB  5016 
0*1  GOTO  6000 
7024  IF  Ml=14  THEN  X=14: 


GOSUB  5026 


7026  IF  M2=15  THEN 


: GOSUB  5024 


7028  IF  M3=16  THEN 


GOSUB  5022 


7030  IF  M4=17  THEN 


GOSUB  5020 


7032  IF  M5=18  THEN 


■GOSUB  5018 


6170  PRINT : PRINT” (HVID, 


7034  IF  M6=19  THEN 


GOSUB  5016 


0=1 


0=1 


Q=1 


0=1 


0=1 


0=1 


GOTO 

X*15 

GOTO 

X=16 

GOTO 

X*17 

GOTO 

X=18 

GOTO 

X=19 


M1=0 

6000 

M2=0 

6000 

M3=0 

6000 

M4=ø 

6000 

M5=0 

6000 

M6=0 


GOTO  6000 


7036  IF  Ml =27  THEN  X=27-M1=0 
• GOSUB  50260=1  GOTO  6000 
7038  IF  M2=28  THEN  X=28 :  M2=0 
: GOSUB  5024 : 0= 1 ; GOTO  6000 
7040  IF  M3=29  THEN  X=29 : M3=ø 
GOSUB  5022-0=1  GOTO  6000 
7042  IF  M4=30  THEN  X=30 : M4=ø 
GOSUB  5020 : 0=1 -GOTO  6000 
7044  IF  M5=31  THEN  X=31  U15=0 
GOSUB  5018 i Q=1 -GOTO  6000 
7046  IF  M6=32  THEN  X=32  •  M6=ø 
GOSUB  5016 :  0=1  GOTO  6000 
7048  IF  D6=13  THEN  X=M1  =111=0 
: GOSUB  5026  0=2  GOTO  6000 
7050  IF  D5=13  THEN  X=M2M2=ø 
: GOSUB  5024 • 0=2 : GOTO  6000 
7052  IF  D4=13  THEN  X=M3  =  M3=0 
: GOSUB  5022  0=2 : GOTO  6øøø 
7054  IF  D3=13  THEN  X=M4 = M4=0 
GOSUB  5020  0=2 : GOTO  6øøø 
7056  IF  02=13  THEN  X=M5M5=0 
GOSUB  5018  0=2 -GOTO  6000 
7058  IF  01=13  THEN  X=M6M6=0 
: GOSUB  501 6  0=2  GOTO  6000 
7060  IF  Ml>14  THEN  X=M1-Ml=ø 
GOSUB  5026 • 0=2 : GOTO  6000 
7062  IF  M2>15  THEN  X=M2  M2=ø 
:  GOSUB  5024  :  0=2  •'  GOTO  6000 
7064  IF  M3>16  THEN  X=M3 - M3=ø 
: GOSUB  5022 : 0=2 : GOTO  6000 
7066  IF  M4>1?  THEN  X=M4  M4=ø 
: GOSUB  5020  0=2 -GOTO  6øøø 
7068  IF  M5>18  THEN  X»M5=M5=0 
: GOSUB  5018 : 0=2= GOTO  6øøø 
7070  IF  M6>19  THEN  X=M6  M6=0 
: GOSUB  501 6: 0=2 -GOTO  6000 
7072  IF  M6C10  RND  M6>0  THEN  X=M6-M6=0 
• GOSUB  5016  0=2 -GOTO  6000 
7074  IF  M5<10  RND  M5>0  THEN  X=M5M5=0 
: GOSUB  5018  Q=2: GOTO  6000 
7076  IF  M4<10  RND  M4>0  THEN  X=M4=M4=0 
: GOSUB  5020  Q=2: GOTO  6000 
7078  IF  M3C10  RND  M3>0  THEN  X=M3 =  M3=0 
: GOSUB  50220=2: GOTO  6000 
7080  IF  M2C10  RND  M2>ø  THEN  X=M2:M2=0 
: GOSUB  5024 :Q=2: GOTO  6000 
7082  IF  MK10  RND  M1>0  THEN  X=M1:M1=0 
: GOSUB  5026 : Q=2 : GOTO  6000 
7084  IF  Ml>13  THEN  X=M1=M1=0 
GOSUB  5026: 0=2 : GOTO  6000 
7086  IF  M2>13  THEN  X=M2M2=0 
GOSUB  5024 : 0=2 : GOTO  6000 
7088  IF  M3>13  THEN  X=M3:M3=0 
: GOSUB  5022 : 0=2 : GOTO  6000 
7090  IF  M4>13  THEN  X=M4:M4=0 
: GOSUB  5020: 0=2  GOTO  6000 
7092  IF  M5>13  THEN  X=M5:M5=0 
GOSUB  5018 :Q=2: GOTO  6000 
7094  IF  M6>13  THEN  X=M6M6=ø 
GOSUB  5016: 0=2  GOTO  6000 
7096  IF  M1>0  THEN  X=M1:M1=0 
GOSUB  5026 : 0=2 : GOTO  6000 
7098  IF  M2>ø  THEN  X=M2M2=0 
: GOSUB  5024 : 0=2 : GOTO  6000 
7100  IF  M3>0  THEN  X=M3M3=0 
GOSUB  5022  0=2: GOTO  6000 
7102  IF  M4>0  THEN  X=M4M4=ø 
GOSUB  5020 : 0=2 : GOTO  6000 
7104  IF  M5>0  THEN  X=M5  M5=ø 
GOSUB  5018  0=2: GOTO  6øøø 
7106  IF  M6>0  THEN  X=M6  M6=ø 
GOSUB  5016  0=2:  GOTO  6000 
7150  GOTO  10500 

8000  IF  D1=0  RND  D2=ø  RND  D3=0  RND  D 
4=0  RND  D5=0  RND  D6=ø  THEN  10500 

8001  IF  PJ=” 1 "RND  D 1 = 1  OR  Dl=14  OR  D 
1=27  THEN  X=D1  Dl=ø: GOSUB  5012:0=2 

GOTO  6000 

8002  IF  Pt=" 1 "RND  Dl=13  THEN  X=D1 
D1=0: GOSUB  5012 : DK=DK+M6+1 : D1=0 

: M6=0 : 0=1 : GOTO  6000 
8004  IF  P*=" 1 "RND  D1>0  THEN  X=D1D1=0 
GOSUB  50120=1  GOTO  6000 
8006  IF  P*="2" RND  D2=2  OR  D2=15  OR  D 
2=28  THEN  X=D2 : D2=0 : GOSUB  5010 :Q=2 
GOTO  6000 

8008  IF  P*="2"RND  D2=13  THEN  X=D2 
D2=ø: GOSUB  5010  DK=DK+M5+1 : D2=0 
M5=0: 0=1  GOTO  6000 

8010  IF  P$*"2" RND  D2>0  THEN  X=D2  D2=0 
: GOSUB  50 1 0 : 0= 1 : GOTO  6000 
8012  IF  P*="3"RND  D3=3  OR  D3=16  OR  D 
3=29  THEN  X=D3 : D3=0 : GOSUB  5008  Q=2 
GOTO  6000 

8014  IF  P$="3"RND  D3=13  THEN  X=D3 
D3=0 : GOSUB  5008 : DK=DK+M4+ 1 : D3=0 
M4=ø: 0=1  GOTO  6000 

8016  IF  P*="3"RND  D3>0  THEN  X=D3:D3=0 
GOSUB  500S : 0=1 : GOTO  6000 
8018  IF  P$="4" RND  D4=4  OR  D4=17  OR  D 
4=30  THEN  X=D4 : D4=0 : GOSUB  5006:0=2 
:  GOTO  6000 
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3020  IF  P*="4"AND  114=13  THEN  X=B4 
;  B4=ø :  GOSUB  5006  •  DK=BK+M3+1  -  D4=ø 
:  M3=ø  '(3=1:  GOTO  6000 
3022  IF  P*="4"AND  B4>0  THEM  X=D4D4=ø 
: GOSUB  50060=1  GOTO  gøøø 
8024  IF  P$="5"AND  D5=5  OR  D5=13  OR  B 
5=31  THEM  >;=B5  D5=ø  GOSUB  5004  0=2 
'•  GOTO  6000 

8026  IF  P$="5"AND  B5=13  THEN  X=D5 
D5=0: GOSUB  5004 : DK=BK+M2+1 : B5=0 
:M2=ø  0=1  i  GOTO  6000 
8028  IF  P$="5" AND  B5>ø  THEN  X=D5 • B5=0 
GOSUB  5004  0=1  GOTO  6000 
8030  IF  P*="6"AND  B6=6  OR  D6=19  OR  B 
6=32  THEN  X=B6  B6=0  GOSUB  5002  0=2 
: GOTO  6000 

8032  IF  P*="6"AND  B6=13  THEN  X=B6 
:B6=ø  GOSUB  5002 : BK=BK+M1+1  B6=ø 
:  111=0 'Q=l : GOTO  6000 
8034  IF  PJ="6"AND  B6>0  THEN  X=B6 : B6=0 
GOSUB  5002  0=1 -GOTO  6000 
8500  GOTO  6000 

10000  PR  I NT "(HOME. SORT. CRSR  NEB22, 
SPACE 13)BET  ER  MIN  TUR 

10002  PRINT” 

10006  GOSUB ’ 510: RETURN 
10050  PRINT" (HOME. SORT, CRSR  NEB22)" . 
10052  INPUT"  BET  ER  BIN  TUR  INBTAS 
T  BIT  VALG  ”.Pi 

10054  PRINT" (CRSR  0P5)" 

10055  IF  P$=" 1 "OR  P*="2"0R  P$="3"0R 
p$="4"0R  Pi="5"0R  P$="6"THEN  RETU 
RN 

10070  GOTO  10050 

1 0500  BK=BK+B1 +B2+B3+D4+D5+D6  B1=0 
:  J)2=0  :  B3=0  •  B4=0  •'  B5=0  D6=0 
10510  MK=MK+M 1 +M2+M3+M4+M5+M6 : M 1 =ø 
' M2=ø : M3=0 : M4=ø : M5=ø : M6=0 
10520  GOSUB  510 
10525  X=0 

10530  X=X+1IF  X=5ø  THEN  10550 

10540  GOTO  10530 

10550  PRINT" (CLR. GUL, RVS  ON, 

CRSR  NEB2 , CRSR  HØJRE, SPACE4, 

CRSR  HØJRE, SPACE4, CRSR  HØJRE, 
SPACE4, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  HØJRE4 , SPACE3 , 

CRSR  HØJRE, SPRCE4, CRSR  HØJRE, 
SPACE3, CRSR  HØ JRE2 ) " I 
10560  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØJRE4, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØJRE , SPACE , 

CRSR  HØJRES, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE3)"; 
10570  PR I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  Hø JRE4, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRE2 , 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE5, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE3)"; 
10580  PR I NT "(RVS  ON, CRSR  HØJRE, 

SP ACE4 , CRSR  HØJRE, SPACE3. 

CRSR  HØ JRE2 , SPACE4 , CRSR  HØJRE, 
SPACE, CRSR  Hø JRE2, SPACE . 

CRSR  HØJRE, SPACE, CRSR  HØJRES, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2 . 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE)" • 

10590  PR I NT "(RVS  ON, CRSR  HØJRE, 
SPACE2.CRSR  Hø JRE3, SPACE, 

CRSR  HØJRE7, SPACE, CRSR  HØJRE, 

SPACE -CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE5. 
SPACE, CRSR  HØJRE2 , SPACE4 , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE3V, 
10600  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  Hø JRE7, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE5, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE3)"; 
10610  PR  I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE4-CRSR  HØJRE, SPACE4, 

CRSR  HØJRE, SPACE4, CRSR  HØJRE, 
SPACE4-CRSR  HØJPE2, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE)”; 
10700  IF  MIOBK  THEN  GOTO  30000 
10800  IF  MK=BK  THEN  GOTO  40000 


20000  PRINT" (BLAA, RVS  ON, CRSR  NEB2, 
CRSR  HØJRE2, SPACE3 , CRSR  HØJRE2- 
SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE3, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE4, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE , SPACE3, 

CRSR  HØJRE2, SPACE3, CRSR  Hø JRE3 ) " ; 

20010  PRINT" (RVS  ON, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE,  SPACE,  CRSR  HØJRE2, 
SPACE, CRSR  HØ JRE3, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØ JRE2, SPACE, 

CRSR  HØJRE, SPACE2, CRSR  HØJRE, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE4V; 

20020  PR I NT "(RVS  ON, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE, SPACE. CRSR  HØJRE2 . 
SPACE, CRSR  Hø JRE3. SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØ JPE2, SPACE, 

CRSR  HØJRE, SPACE2, CRSR  HØJRE, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2. 
SPACE, CRSR  HØJRE4)"; 

20030  PR I NT "(RVS  ON. CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE- SPACE, CRSR  HØJRE2 , 
SPACE, CRSR  HØJRE3, SPACE, 

CRSR  Hø JRE2, SPACE- CRSR  HØJRE, 
SPACE, CRSR  HØ JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE, 

SPACE2 , CRSR  HØJRE, SPACE, 

CRSR  HØ JRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE4 ) “ ; 

20040  PRINT” (RVS  ON, CRSR  HØJRE2, 
SPACE, CRSR  Hø JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2 . 

SPACE , CRSR  Hø  JRE3  SPACE . 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE4 - CRSR  HØJRE -SPACE , 

CRSR  HØJRE, SPACE2, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE4) " ; 

20050  PRINT"(RVS  ON, CRSR  HØJRE2, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØ JRE4 , SPACE2 , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØJRE , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE4)", 

20060  PR I NT "(RVS  ON, CRSR  HØJRE2, 
SPACE3 , CRSR  HØ JRE2 , SPACE4 , 

CRSR  HØJRE41I  (RVS  0FF1KRVS  ON, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE , CRSR  HØJRE -SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE , 
SPACE3 , CRSR  HØ JRE3 , SPACE , 

CRSR  HØJRE4)",’ 

20100  GOTO  50000 

30000  PRINT” (BLAA, RVS  ON, CRSR  NED2, 
SPACE4 , CRSR  HØJRE , SPACE4 , 

CRSR  HØJRE, SPACE4, CRSR  HØJRE3, 
SPACE, CRSR  HØ JRE2, SPACE, 

CRSR  HØJRE, SPACE4, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE2 , SPACE . 

CRSR  HØJRE, SPACE3, CRSR  HØJRE2, 
SPACE3)”; 

30010  PR I NT "(RVS  ON, CRSR  HØJRE3, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  Hø JRE3, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØ JRE2, SPACE, 

CRSR  HØJRE, SPACE2, CRSR  HØJRE, 

SPACE , CRSR  HØJRE , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE)"; 

30020  PR I NT "(RVS  ON, CRSR  HØJRE3, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRE6, 
SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE , SPACE2, 

CRSR  HØJRE, SPACE, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE)"; 

30030  PR I NT "(RVS  ON, CRSR  HØJRE3, 
SPACE, CRSR  HØJRE, SPACE3, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE6, 
SPACE, CRSR  HØ JRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, CRSR  HØJRE, 
SPACE2 , CRSR  HØJRE , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE)"; 


30040  PRINT" (RVS  ON, CRSR  HØJRE3, 
SPACE , CRSR  HØJRE -SPACE , 

CRSR  HØJRE4, SPACE, CRSR  HØJRE, 
SPACE2 , CRSR  HØ JRE3 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE4 , CRSR  HØJRE, SPACE, 

CRSR  HØJRE- SPACE2, CRSR  HØJRE, 
SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE)"; 

30050  PR I NT "(RVS  ON, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØ JRE4, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE4, 
SPACE2 ,  .CRSR  HØ JRE2 ,  SPACE , 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  Hø JRE2- SPACE, 

CRSR  HØJRE)"; 

30060  PRINT” (RVS  ON, CRSR  HØJRE, 

SPACE2 , CRSR  HØ JRE2 - SPRCE4 , 

CRSR  HØJRE, SPACE4, CRSR  HøJRE4)l(R 
VS  OFF)l (RVS  ON, CRSR  HØ JRE2, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE3, CRSR  HØJRE3, 
SPACE. CRSR  HØJRE)"; 

30100  GOTO  50000 

40000  PRINT" (BLAA, RVS  ON, CRSR  NEB2, 
CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE4, 

CRSR  HØJRE- SPACE4, CRSR  HØJRE, 
SPRCE4.CRSR  HØJRE, SPACE4, 

CRSR  HØJRE, SPACE4, CRSR  HØJRE, 
SPACE4 , CRSR  HØJRE , SPACE3 , 

CRSR  HØJRE)"; 

40010  PR I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2- SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE4, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE4, SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE2)”; 

40020  PR I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  HØ JRE2 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE4, 
SPACE, CRSR  Hø JRE7, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2- 
SPACE, CRSR  HØJRE2)"; 

40030  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 

SPACE , CRSR  Hø JRE2 , SPACE , 

CRSR  HØJRE, SPACE3, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE7, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE, SPACE4, 

CRSR  HØ JRE2, SPACE, CPSP  HØJRE2)"; 

40040  PRINT" (RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE4.CRSR  HØJRE, SPACE, 

CRSR  HØJRE4, SPACE, CRSR  HØJRE, 
SPACE2 , CRSR  HØ JRE4 , SPACE , 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 

SPACE , CRSR  HØJRE , SPACE2 , 

CRSR  HØJRE4. SPACE, CRSR  HØJRE2)"; 

40050  PR I NT "(RVS  ON, CRSR  HØJRE, SPACE, 
CRSR  HØ JRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE4, 
SPACE, CRSR  HØJRE2, SPACE, 

CRSR  HØJRE, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE, 
SPACE, CRSR  HØJRE, SPACE, 

CRSR  Hø JRE3, SPACE, CRSR  HØJRE2 ) " ; 

40060  PR I NT "(RVS  ON, CRSR  HØJRE, 

SPACE4 , CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE¬ 
SPACE,  CRSR  Hø JRE4 , SPACE4 , 

CRSR  HØ JRE2 , SP ACE2 , CRSR  HØJRE2, 
SPACE4 , CRSR  HØJRE, SPACE, 

CRSR  HØJRE2, SPACE, CRSR  HØJRE2, 
SPACE, CRSR  HØJRE2)"; 

40100  GOTO  50000 

50000  PR I NT "(RVS  OFF.HVIB, 

CRSR  NED) JEG  FIK"MK "  POINT  (SO 
RT)I (GRØN) ØNSKES  NVT  SPIL 

50010  PRINT"(HVID)D>J  FIK  "DK"  POINT 
(SORT)I (GRØN) (J/N)  "; 

50015  INPUT" (CRSR  OP, CRSR  HØJRE35) " ; 
N* 

50020  IF  N*»"J"THEN  5 

50030  IF  N*="N"THEN  END 

50040  GOTO  50000 


Renteknuser 


■  Hvis  du  har  købt  et  eller  an¬ 
det  på  albetaling  kan  dette 
program  opstille  et  betalings¬ 
skema  tor  dine  udgifter. 

Du  indtaster  gældens  størrel¬ 
se.  rentefoden  samt  antal  ter¬ 
miner.  Programmet  udskriver 
derefter  hvor  meget  du  skal 
betale  pr.  måned,  og  for  hver 
termin,  hvor  stor  en  del  af 
ydelsen  der  går  til  renter,  samt 
hvor  stor  restgælden  er  efter 
hver  termin. □ 

Carsten  Andersen 
og  John  Hvidlykke 


tø  REM 

20  REM  -AFBETAL I NGSPPOGRAM- 
3ø  REM  Art isan  DATA  1985 
4ø  REM  Carsten  Andersen 
5ø  REM  John  Hvidløkke 
6ø  REM 

7ø  INK  ø,l 'INK  1,26  BORDER  1  MODE  l'PEN  1 
8ø  '• 

90  DEF  FNa<x>=ROUND<x*løØ VI øø 
100  GOSUB  660 
110  ' 

120  CLS'LOCATE  4,3'PRINT  CHR$C 150 );STPING« 32- CHR«  154 ) ) : CHR«  156 ) 

130  PR  I  NT  TAB<  4  )CHP*<  149);  TAB<  37  )CHR«  1 49  ) 

140  PRINT  TAB<4);CHR«  149)'TAB''  12 VAFBETAL INGSPPOGPAM"  ; TABC 37 )CHP«  149) 

150  PRINT  TAB<4)CHR«  149);TAB<37)CHR«  149> 

160  PRINT  TAB< 4 )CHP«  149); TAB( 37 )CHR«  149) 

17ø  PRINT  TAB<4)CHR«  149);  “  CoPyri9ht'  Artisan  DATA  1985";TAB<37)CHR« 149) 

180  PRINT  TAB<4)CHR*<149);TAB<37)CHR«149) 

190  PRINT  TAB<4)CHR«  149);"  IDE  Carsten  Andersen" ;TAB< 37 )CHR« 149) 

200  PRINT  TAB<  4  )CHR$<  149  );  TAB<  37  )CHR«  149  ) 

210  PRINT  TAB<  4  )CHR«  1 49  > ;  ”  PROGRAMMER  I NG  ’  Carsten  Andersen  " ;  TAB1-  37  )CHR«  1 49  ) 

220  PRINT  TAB<  4  )CHR«  149  );  TAB’-  37  >CHR«  149  ) 

230  PRINT  TAB(  4  )CHR*<  149  );  TAB<  21  >“  John  Hw idlykke" ;  TAB<  37  )CHR«  149  ) 

240  PRINT  TAB<  4  )CHR*<  149);  TAB<  37  )CHR«  149) 

250  PRINT  TAB< 4 )CHR«  147 ); STRING« 32,  CHR«  154 ) ); CHR«  153 ) 

260  a*=INKEY$'IF  a»=" "  THEN  260 

270  IF  LOMER«  a.S )="9"  THEN  AFTER  50  GOSUB  700 

280  GOSUB  590 

290  MODE  1 

3øø  PRINT  CHR« 24 )' PRINT  STRING« 4ø, "  ") 

310  LOCATE  1,2 'PRINT  TABC 15 )" AFBETALING CHR*< 24 ) 

320  PRINT  PRINT  TAB< 1 1 )" Artisan  DATA  1985" 

330  FOR  i=l  TO  4 ' PRINT' NEXT ' PRINT" INDTAST  GzLD '  " 

340  PRINT 'PRINT" INDTAST  RENTESATS' 

35ø  PRINT  PRINT" INDTAST  ANTAL  TERMINER'" 

360  LOCATE  1,23 'PRINT  CHR« 24 ); STRING*! 4ø,  "  ") 

370  LOCATE  1,23 'PRINT  TAB<  14 );  "DATA  OK  (.  J/H )" ; CHR«  24 ) 

380  LOCATE  15,9' INPUT  " " , 9a.eld* ' 9aeld=VAL< 9aeld* ) '  IF  9aeld=ø  THEN  380 
390  LOCATE  20, 11 'INPUT  " ” , Pct* ' Pct=VAL< Pct* )' IF  Pct=ø  THEN  39ø 
4øø  LOCATE  25, 13' INPUT  n* ■ n=VALC n* )' IF  n=0  THEN  4øø 

4tø  a*=INKEY* 

420  IF  LOMER«  a* )=“n“  THEN  380 
430  IF  LOMER«  a*X>"J"  THEN  410 
440  GOSUB  590 
450  Pct2=P ctxløø 

46ø  ydelse=9aeld*Pct2/< l-( 1+Pct2 V-n) 

470  GOSUB  730 

480  FOR  i=l  TO  n '  rente=9ae  1  d*P  ct2 '  af  dra.9=y  de  l  se-rente '  9ae  l d=9a.e  1  d-af dr a9 

490  IF  n>12  AND  i >12  THEN  MHILE  . . LOCATE  1,24' PRINT "TAST  <SPACE>  FOR  S 

CROLL" 'WEND 

5øø  PRINT  #2,  i ;  TAB1"  8  )FNa< rente  );  TAB'  18  )FNa<  afdrag  );  TAB<  29 )FNa< 9aeld  ) 

510  NEXT 

520  LOCATE  1 , 24 ' PPI NT “ØNSKES  GENKøPSFL  <J/N)?“ 

530  a*="" 

540  A*=INKEY* 

550  IF  LOWER« a* )*"j“  THEN  280 

560  IF  L0MER$<a*)O"n"  THEN  540 

570  LOCATE  1,24 'PPI NT  STRING« 25, "  "> 

580  LOCATE  1,24 'END 
590  ' 

6øø  FOR  1*1  TO  35 

610  PRINT 

620  CALL  &BD19 

630  NEXT  i 

640  RETURN 

650  ' 

660  SYMBOL  AFTER  121 

-670  SYMBOL  122, 126, 216, 216 . 254, 216,216, 222 

680  RETURN 
690  ' 

700  INK  0,9' INK  1,25 'BORDER  9 
710  RETURN 
720  ' 

730  REM 

740  REM  OVERSKRIFT 
750  REM 

760  MODE  1 'MI NDOM  #1, 1,40, 1, 1 'PEN  #1 , ø ' PAPER#1 , t ' CLS#1 
770  MI NDOM  #2, 1,40, 10,21 'PEN  #2, 1 ' PAPEP#2, 0 ' CLS#2 

780  PRINT#1 ,  "STARTGzLD ■  "FNa<  9aeld);  TAB<  19  )"PCT '  "ROUND'  Pct ) ;  TAB''  28  )" TERMINER '  "RQU 
ND<n); 

790  LOCATE  1 , 4 '  PR  I  NT  "  TERM  I  NSYDELSE  <Kr.  )'  "FNa/  ydelse) 

000  LOCATE  1,7 'PR I NT "TERM IN  RENTE  AFDPAG  PFSTGzi  D" 

810  PRINT  STR I  NG«  4ø ,  CHR«  154)) 

820  LOCATE  1,23 'PRINT  STR  I  NG«  4ø .  CHP«  1 54  >  )  .• 

830  PRINT 'RETURN 


Kinaskak 


Kender  du  det  lille  spil  fra  BRIO. 
hvor  der  er  32  pinde  og  et  hul  i 
midten? 

Det  gælder  i  Kinaskak  om  at  place¬ 
re  den  sidste  pind. 

Reglerne  er  som  følger: 

Man  må  kun  flytte  een  pind.  hvis 
man  hopper  over  en  anden  og  ef¬ 
ter  man  har  hoppet  over  den.  skal 
den  fjernes. 

I  hullet  i  midten,  skal  der  stå  en 
pind  til  sidst. 

Thomas  Lykkeberg 


PROGRAM :  KINASKAK* 

9  RESTORE 

lø  PRINT" <CLR>" • KK=K ■ PRINT" (HOME) "TA 
B  (1 7 ) B* ,  KK " ( L . BLA A , SP ACE  >  REST " 
:K=32 

11  POKE  54296, 15  i POKE  54277,10 

POKE  54273,0 

12  POKE  54276,129  POKE  54273,20 

13  PRINT" (HOME, CRSR  NED23)"TAB(23)"( 
RVS  ON, GRØN) NYT  SPIL  =  9<RVS  OFF)" 

20  PRINT" (HOME, CRSR  NED6) "TRB(5)"(RV 
S  ON,GUL)»l  2  3  4  5  6  7«T 

21  PRINT  THB(5) " (RVS  ON, 

GUL) 1 "TRB( 19) “ 1 " 

22  PRINT  TRB(5)"(RVS  ON, GUL, 

SPACE) "TRB( 19)"  " 

23  PRINT  TRB(5) " (RVS  ON, 

GUL)2"TRB( 19) "2" 

24  PRINT  TRB(5) ” (RVS  ON- GUL, 

SPACE) "TAB( 19>"  " 

25  PRINT  TRB(5) "(RVS  ON, 

GUL)3"TRB( 19) “3" 

26  PRINT  TRB<5) " (RVS  ON. GUL. 

SPRCE) "TRB( 19) "  " 

27  PRINT  TRB(5) " (RVS  ON, 

GUL)4"TRB< 19) "4" 

28  PRINT  TRB(5) " (RVS  ON, GUL. 

SPACE) "TAB' 19)"  " 

29  PRINT  TRB(5) " (RVS  ON, 

GUL)5"TRB( 19) "5" 

30  PRINT  TRB(5)"(RVS  ON, GUL, 

SPACE) "TRB( 19) "  " 

31  PRINT  TAB(5) "(RVS  ON, 

GUL)6"TAB( 19) "6" 

32  PRINT  TAB(5) " (RVS  ON, GUL, 

SPACE) "TAB( 19)"  “ 

33  PRINT  TAB(5> " (RVS  ON, 

GUL)7"TAB( 19) "7" 

34  PRINT  TAB(5) " (RVS  ON, 

GUDSI  2  3  4  5  6  7SJ" 

35  IF  KK>=1  THEN  120 

løø  DIM  A(7)DIM  B(7)-DIM  C(7) 

DIM  D(7) : DIM  E(7) : DIM  F(?) 

; DIM  G(7) 

120  FOR  Q=1  TO  7  READ  A(Q) : W=W+1 

IF  W<3  OR  W>5  THEN  POKE  A(Q),32 
■GOTO  14ø 

130  POKE  A(Q) , 81 

140  NEXT  Q : W=0 

220  FOR  Q=1  TO  7 -READ  B(Q)W=U+1 
: IF  U<3  OR  W>5  THEN  POKE  B(Q),32 
: GOTO  240 

230  POKE  BOP) , 81 

240  NEXT  Q  *  W=0 


320  FOR  Q=1  TO  7 -READ  C(Q) 

330  POKE  C(Q),S1 
340  NEXT  Q 

420  FOR  Q=1  TO  7 : READ  D(8):U=W+1 

: IF  W=4  THEN  POKE  D(0),46  GOTO  440 
430  POKE  D(Q) , 81 
440  NEXT  Q  W=ø 
520  FOR  Q=1  TO  7  READ  E(Q) 

530  POKE  E(Q),81 
540  NEXT  Q 

620  FOR  Q=1  TO  7  READ  F(Q)  14=14+1 

IF  14<3  OR  W>5  THEN  POKE  F(Q),32 
: GOTO  64ø 
630  POKE  F(Q),81 
640  NEXT  QU=0 

720  FOR  Q=1  TO  7  READ  G(Q>  14=14+1 
:  IF  W<3  OR  I4>5  THEN  POKE  G(Q)  ,32 
GOTO  740 
730  POKE  G(Q) , 81 
740  NEXT  Q :  I4=ø :  POKE  54276,0 
POKE  54277,9 

745  POKE  54276, 17 : POKE  54273,100 
FOR  T=1  TO  500 : NEXT  T 
: POKE  54276-0 

750  POKE  54276,17  POKE  54273,50 
•  PRINT" (HOME, HVID)FLVT  FRA" 

FOR  T=1  TO  100 : NEXT 

751  INPUT  K* : IF  K$="9"THEN  INPUT"(LI 
LLA) SKRIV  DIT  NAVN" , B$ : GOTO  9 

752  PR I NT "(CRSR  0P-SPACE5)" 

754  L*=LEFT*(Kt,l)  Z»VAL(L*> 

755  LJ=RIGHT$(K*> 1 ) : H=VAL(L*) 

760  POKE  54276,0 

761  IF  2<1  OR  Z>7  THEN  750 
765  IF  H<1  OR  H>7  THEN  750 

770  IF  H<3  AND  2<3  OR  H<3  AND  Z>5  TH 
EN  750 

775  IF  H>5  AND  2<3  OR  H>5  AND  2>5  TH 
EN  750 

850  POKE  54276, 17  PR I NT "(HOME, 

L. BLAA)FLVT  TIL"  FOR  T=1  TO  100 
NEXT  T: POKE  54276,0 

851  INPUT  K* : PRINT" (CRSR  OP , SPACE5) " 

854  L*»LEFT*(K*,1)X=VAL(L*> 

855  L*=RIOHT*(K*,l)I=VAL(L*) 

860  IF  X<1  OR  X>7  THEN  850 

865  IF  Kl  OR  I>7  THEN  850 

866  IF  2+HPX+I+2  OR  X+I>2+H+2  THEN  7 
50 

867  IF  2+H=X+I+l  OR  X+I=2+H+l  THEN  7 
50 

868  IF  Z»X  OR  H=I  THEN  874 

873  GOTO  750 

874  IF  I<3  AND  X<3  OR  I <3  AND  X>5  TH 
EN  850 

875  IF  I >5  AND  X<3  OR  I >5  AND  X>5  TH 


EN  850 

880  IF  H>I  THEN  R=+30 

881  IF  HCI  THEN  R=-8ø 

882  IF  2>X  THEN  R=-2 

883  IF  2<X  THEN  R=+2 

890  POKE  54276, 33 i POKE  54273,50 

911  IF  H=1  THEN  POKE  A(2),46 

912  IF  H=2  THEN  POKE  B(2),46 

913  IF  H=3  THEN  POKE  C(2),46 

914  IF  H=4  THEN  POKE  D(2),46 

915  IF  H=5  THEN  POKE  E(2),46 

916  IF  H=6  THEN  POKE  F(2),46 

917  IF  H=7  THEN  POKE  G(2),46 
920  FOR  T=1  TO  200  i NEXT  T 

POKE  54276,0  i  FOR  T=1  TO  100 
NEXT  Ti POKE  54276, 33 :K=K-1 

1011  IF  1=1  THEN  POKE  A(X),81 
FOR  T=1  TO  løø i NEXT  T 
POKE  A(2)+R,46 

1012  IF  1=2  THEN  POKE  B(X),81 
FOR  T=1  TO  løø i NEXT  T 
POKE  B(Z)*R, 46 

1013  IF  1=3  THEN  POKE  C(X),S1 
: FOP  T=1  TO  100 ' NEXT  T 

POKE  C(Z)+R. 46 

1014  IF  1=4  THEN  POKE  D(X),81 
FOR  T=1  TO  løø i NEXT  T 
POKE  D(2)+R,46 

1015  IF  1=5  THEN  POKE  E(X),81 
FOR  T»1  TO  100 : NEXT  T 
POKE  E(Z)+R, 46 

1016  IF  1=6  THEN  POKE  F(X),81 
: FOR  T=1  TO  100  i NEXT  T 

POKE  F(Z)+R,46 

1017  IF  1=7  THEN  POKE  G(X),81 
FOR  T=1  TO  løø i NEXT  T 
POKE  G(Z)+R,46 

1018  PRINT" (HOME) "TAB(34)" 

1019  PRINT" (HOME) "TAB (34 )K"  " 

1020  POKE  54276,0  i  FOR  T=1  TO  100 
i NEXT  T 

4øøø  GOTO  750 

5000  DATA  1310,1312,1314,1316,1318, 
1320, 1322 

5010  DATA  1390,1392,1394,1396,1398, 
1400, 1402 

5020  DATA  1470,  1472, 1474,1476, 1478, 
1480, 1482 

5030  DATA  1550,1552,1554,1556,1558, 
1560, 1562 

5040  DATA  1630,1632,1634,1636,1638, 
1640, 1642 

5060  DATA  1710, 1712,1714,1716,1718, 
1720,1722 

5070  DATA  1790, 1792-1794,1796,1798, 
1800, 1802 


$0  39 


Rocket  Lander 


1  INK  7:  LET  hi  =.500  LET  j«il 
LET  s  d  =0 :  LET  S  C >0 :  LET  V =0 :  L 
ET  i  =k>  BORDE*  1  POPER  0  CLS 
OO  SUB  5000 :  OO  TO  5110 
5000  RE5TORE  SØØØ  FOR  a  =USR  "a" 
TO  USR  ,,g" +7  READ  b:  POKE  3  ,  b  : 
NEXT  a:  RETURN  :  DBTO  254,96,25 
5, 126,126.255,96,254,0,0,240,63, 
63,240, 0,0 , 0,0 ,0,60,24, 0,0 , 0,0 , 2 
8 , é , 8 , 137 , 25S , 126 , 129 , 129 ,  139  , 16 
5, lés, 189, 129,129,129,0,0,255,0, 
0,255,0,0,255,170,0,0,0,0,0,0 
6010  éoRDÉR  3.  CLS 

FOR  a»3  TO  27.  LET  p =21 -INT  (RNO 
*10) ;  LET  h=INT  CRNDJ6) 4l  FOR  b 
■21  TO  P  STEP  -1:  PRINT  RT  b,a, 
INK  h  ;  "W"  :  LET  w  ( a  )  =P  .  NEXT  b.  P 
RINT  RT  b,a;"A":  NEXT  a 
6020  COR  g  -sø  TO  31.  PRINT  81;  RT 

téli  printErt  &,iø,  flrsm  l;  ink 
6; "OET  RERDY":  FOR  J«0  TO  100: 
NEXT  J:  BEEP  .1,5:  PRINT  RT  0,10 

6100  LET  a=l«  LET  b«l:  LET  s  C -0 

6104TPRINT  »1 . »T  1 , 3;  "SCORE :  "  i  3  C 

;  81;RT  1,20;  "LEUEL:  le 

6105  PRINT  Bl;  RT  1  ,  s»,  s  c ;  »1  ;  ffT  1, 

6liø€PRINT  RT  INT  a , b;  INK  6;"  C 

6115  BEEP  .001,30  BEEP  .001,40 
6120  FOR  q»0  TO  2:  NEXT  9 
6125  IF  V  b25  TMEN  OO  TO  4000 
6130  IF  INKEYSO"”  TMEN  GO  TO  70 

6150  LET  b  ■  b  4 1 :  JF  T.ME.N  LET 

b-1:  PRINT  RT  INT  8,29;"  " :  L 

616ø'lf'»  lb»l)  »8*1  THEN  GO  TO  80 

00 

6180  GO  TO  6105 

7000  LET  X-INT  »42;  LET  y=b4l 
7009  PRINT  Bl;RT  1 , 3;  "SCORE:  ”; S  C 


; »1; RT  1,20,  "LEDEL:  le 

7010  PRINT  Bl ; RT  l,9;*c;Bl;flT  S, 
25;  le 

7011  PRINT  RT  x-l,y,"  ”;RT  X  .  y ;  •• 
-"JRT  INT  a,b ;  §*■*  :  LET  X«X  +  I: 
LET  bsb+1 

7020  BEEP  .001,40:  BEEP  .001,50 
7050  IF  b  >29  TMEN  LET  b=l:  PRINT 
RT  INT  « ,  29,  "  LET  a»a4.B 

7060  IF  ■Ib4l>a«4l  TMEN  GO  TO  BØ 

00 

7070  IF  MlylaX  OR  Kly)  w-1  TMEN 
LET  SCBSC48  LET  • ly) >EØØ.  LET  V 
■V  4 1 :  BEEP  .03,10 

7080  IF  X  >21  THEN  PRINT  RT  X-l.U 
LET  x  *0 :  LET  «(y)=løø:  BEE 
P  .005,0:  BEEP  .005,5;  GO  TD  610 

7090  PRINT  RT  X-l,y; "  “ :  GO  TO  T 

010 

BØOØ  PRINT  RT  4 , b;  BRIGHT  1;  FL« 
5M  1; 

8010  PRINT  RT  »  ,  b;  BRIGMT  1;  FLR 
SH  1;  "•»" :  FOR  C >20  TO  15  STEP  - 
.2:  BEEP  .001,«:  NEXT  •:  FOR  o-« 
TO  21  STEP  .5:  PRINT  RT  0,b, '■» 
"; RT  o , b;  ODER  1; ” Il “ :  BEEP  .01, 

6:  PRINT  RT  o  ,b ;  OVER  1; - :  BE 

EP  .01,-3:  PRINT  RT  o ,  b;  ••  " :  NE 
XT  o 

8090  PRINT  RT  3,11;  FLRSH  1; "ORM 
E-OVER" 

5095  IF  S  C  >h I  TMEN  LET  bl-IC 
8100  FOR  l >0  TO  300.  NEXT  1 
8110  CLS  :  PRINT  RT  2,0;  INK  2; " 


8120  PRINT  RT  7,0}  INK  4;  “  .  — 

INDER 

8130  PRINT  RT  13,0;  FLASH  1;  INK 
6; "LRST  PLRYER  GOT  " ; S C ; "  POINT 

8140  PRINT  RT  15,0;  FLRSH  1;  BRI 
G HT  1;  INK  2; "HIGHSCORE  ";hi;“  P 


OINTS" 

8145  PRINT  RT  18,0;  BRIGMT  li  IN 
K  6;  FLRSM  1; "PRESS  RNY  KEY  TO  B 
EOIN" 


:  RERD  Wt:  BEEP  . IS, Vt 412;  BEEP 

.  1  ,  V  t 

S 152  IF  INKEY*  O""  THE N  GO  TO  51 

8153  NEXT  t:  DRTfi  3,10,6,13,1,8, 
-7, -2, -4, -11, -9, -S, -4,8, 3,6, 1 , 11 
,6, 13, 8, 11, 6, 13, 3, 1,-2, -4, -6, 3,1 
,  -2,  -4,6,3,  -2,  1,  -4,  -2,  -6,  -4,  -11, 

-6 

8154  FOR  1=0  TO  SØØ 

5155  IF  INKEYBO""  THEM  GO  TO  81 
82 

3156  NEXT  t 
8157  GO  TO  8151 

5162  SEEP  .05,-10.  BEEP  .05,-6 
5165  INPUT  "LEVEL  (1-10)  .  ",  le 

8166  IF  le >10  OR  l e  ;  1  THEN  GO  TO 

8165 

8167  LET  l e  = INT  RBS  1«:  CLS  .  GO 
TO  6010 

9000  LET  a  ■  (  INT  a.l;  FOR  3  =  b  TO  2 
9:  PRINT  RT  INT  a.d;  LET  S 

C  ■  S  C  4 1  ;  PRINT  Oli  RT  NE.VT 

d:  PRINT  RT  INT  a,29;"=r;" 

9010  FOR  c  =a  4l  TO  20.  FOR  d =0  TO 
29:  PRINT  RT  c,  d;  LET  -‘C 

SC41.  PRINT  Ol.BT  1  ,5,  S-  C  .NEXT  d 
:  PRINT  RT  c, 29;"=".  NEXT  C 
9020  FOR  d  =0  TO  29:  PRIMT  RT  21. 

LET  S  C  =  £  C  43  PRINT  OljA 
T  1,9; SC.  NEXT  d 

9060  FOR  a=0  TO  200:  BORDER  IRNC- 
*7):  FLRSH  1:  BRIGHT  1.  NEXT  a 
9065  FLRSM  0:  BRIGHT  0  BORDER  O 
9070  GO  TO  S99C 

9500  PRINT  'SRVE-  SRUE  "ROCKET 
L."  LINE  1:  PRINT  "VERIFV:  VER  I 
FV  "ROCKET  L . " 


■  Dette  er  det  velkendte  spil, 
hvor  du  skal  bombe  højhuse¬ 
ne  under  din  raket  tor  ikke  al 
ramle  ind  i  husene,  da  din  ra¬ 
ket  har  motorskade  og  daler 
langsomt  ned.  Programmet 
har  10  sværhedsgrader  ind¬ 
bygget,  og  du  bomber  med 
tasten  B.D 

Claus  Eveis  Christensen 


Kaptajn 

torpedo 


Du  er  blevet  ansat  i  det  sven¬ 
ske  militær  som  kaptajn  på 
en  torpedobåd.  Din  opgave 
er  at  bekæmpe  de  tjendtlige 
ubåde,  som  snuser  rundt  i 
skærgården.  Du  styrer  din  tor¬ 
pedobåd  med  tasterne  z  tor 
venstre,  x  tor  højre  og  m  tor  at 
smide  torpedoer. 

Ivan  Jeppesen 
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:  O  5EH  ►*  tT:t  I  pi*d>>  *f  * 

2 :»  »em 

30  BORDER  4 

35  i ;  IMK  :  CLS 

40  GO  SUB  4.50 

50  GO  SUB  540 

60  GO  SUB  370 

70  LET  r»ø 

Sø  LET  b  i=  S* 


Sø  LET  bi  =  "S* 

Gø  LET  ty  =10" 

100  LET  U*  =  "»V 
110  LET  lix  *30 
ISø  LET  t  =0 

140  PRINT'PflPER  i;  INK  7;  RT  0,0 
,  'FORSØG«"; AT  0, 15; "PLETTERE« 

15ø  LET  u«»XNT  JRND*9>  *  12 
160  PRINT  POPER  5,  INK ®4flXT 10 ' 
s, bi:  PRINT  PRPER  1;  INK  6, RT  uy 

'l70UPRINT  PRPER  5,_RT  0,9;" 

' lSØPpPIN+°RT0éTs^ to, PT  0,24.  r 
190  PRUSF  10 
200  LET  sus *uy 
210  IF  t=0  THEN  LET  tx»x+l 
220  LET  sux»ux  LET  s«»* 

121  then  GOTO  290 

250  LET  x-x»(IHKEY*-"x  RND  x<3 
®t  —  <INKEY*-"Z"  RND  X >01 
260  IF  INK EY $  = '  m  THEN  LET  »  -1 
270  PRINT  PRPER  5, RT  10, s«; 

26®  NEXT  n 

290  LET  »«*u»  -1  .  ,  __ 

300  IF  t-1  THEN  LET  s  ty »ty  LET 
stx *tx :  LET  t  y  ■  t  y  *- 1  «NO  t y <21 : 
PRINT  RT  sty.slx,"  PRINT  INK 
7,  POPER  1; ht  ty  .  tx; "f" . 

310  IF  ty»21  THEN  LET  to»to-l: 
LET  t  »0 :  (PRINT  PRPER  1;RT  21,  tx, 
"  " :  LET  t  y  » 1 0  *  GO  TO  780 
320  IF  to  »0  THEN  GO  TO  730 
330  IF  RTTR  tuy,ux>11=15  OR  RTT 
P  (uy.u*  *2)  *15  'HEN  GO  TO  888 
340  lF  u x  » 1  THEN  LET  to»to -i :  L 
ET  u  x  »30 :  LET  uy»INT  (RNDflØ)  *13 
3BØ  PRINT  RT  suy,i.ux;" 

360  GO  TO  160 

370  REH  Landskab 

380  POPER  1:  CLS 

390  FOR  n-0  TO  10 

400  EOR  f«0  TO  31  .  „  .. 

410  PRINT  POPER  S, RT  n,f; 

420  NEXT  f 
4.30  NEXT  n 
440  RETURN 

450  REM  Opstart  --„rim** 

460  PRINT  RT  0, 10; “*  TORPEDO  * 
470  PRINT  RT  2, 3;  1  de t te  sp 1 t 

skal  du  styre"; RT  6,3;  en  torped 
o  baad,der  er  paa",AT  4,3;  Jagt 
efter  en  ubaad. 

480  PRINT  RT  6,3; "Du  styre  »ed 
disse  taster."  .....  ..  ..... 

490  PRINT  RT  8,3; Z""  <<  , RT 


9,3;  . x""  >  > " ;  RT  10,3; . M""  Ss 

ider  torpedoen 

5øø  PRINT  RT  15,1; "Hvor  »anse  / 
orsog  vil  du  have" 

510  INPUT  to 
520  LET  f  o  *  t o 
530  RETURN 
540  REH  U . D . G 
550  EOR  f»0  TO  7 

560  RERD  a:  ROKE  U5R  "a"tf,3:  N 
EXT  f 

570  DRTR  BIN  0000® 111, BIN  00000 
111, BIN  11100111, BTN  11111111, BI 
N  1111 11 11, BIN  01 11 1111, BIN  0011 
1111, BIN  00011111 
580  EOR  f »0  TO  7:  RERD  a:  ROKE 
USR  " b"  +  f , a :  NEXT  f 
590  DRTR  BIN  11 100000,8 IN  1! 100 
000, BIN  11110000, EIN  11111111, BI 
N  11111111, BIN  11111111, BIN  5111 
1111, BIN  11111100 
800  EOR  f=0  TO  7:  RERD  a:  POKE 
U5R  " c " ♦ f , a :  NEXT  f 
610  DRTR  BIN  0000® 111, BIN  00000 
111, BIN  00000111, BIN  00111111,61 
N  10000000.BIN  11111111, BIN  0111 
1111, BIN  00111111 
620  FOR  f »0  TO  7 :  RERD  a:  ROKE 
USR  "  d  "  *•  f  ,  a  :  NEXT  f 
630  DRTR  BIN  11000000,BIN  11000 
OØØ, BIN  11100000, BTN  11111100,61 
N  11111110, BIN  11111111, BIN  5111 
1110, BIN  11111100 
640  RETURN 
650  REM  Eksplosion 
655  PR INT  RT  t  u , t  x ; "  " 

660  PRINT  POPER  1;  INK  6; RT  uy- 

I, ux;"_0:xw 

662  RESTORE  665:  FOR  d»l  TO  S: 
RERD  j , k :  BEEP  j , k •  NEXT  d 
665  DRTR  . 1 , 1 1 , . 1 , 1 1 , . 8 , 16 , . 05 , 

II,  .05, 16, .05,11, .05,16,1,20 
670  LET  r»r+l 

680  LET  to.to-J 
690  PRU5E  100 

700  PRINT  PRPER  1;  INK  6;  RT  uy- 

1 ,  u  x ;  " 

710  PRINT  PRPER  E; RT  10, x;" 

720  GO  TO  80 

730  PRINT  PRPER  1;  INK  7; RT  4,3 
; "Du  har  ikke  flere  forsog" 

740  PRINT  PRPER  2;  INK  7; RT  6,2 
jJDu  ramte  “;r;"  ud  af  “;fo;"  rau 

>8ø  INPUT  "Ui 1  du  prove  igen  (J 

7GQ  IF  a  >«“ J "  OR  a*»"J"  THEN  RU 

770  STOP 

780  PRINT  PRPER  5; RT  10 , x ; "  ": 

PRINT  PRPER  1; RT  uy,ux,"  " :  G 
O  TO  80 

790  SRUE  "TORPEDO"  LINE  10 


41 


Charachtér 

designer 


■  Dette  program  kan  bruges 
til  at  definere  nye  tegn.  Pro¬ 
grammet  opstiller  et  stort  8*8 
felt,  hvor  man  kan  flytte  rundt 
med  en  cursor  og  designe  si¬ 
ne  egne  tegn.  Samtidig  kan 
man  se.  hvordan  tegnet  kom¬ 


mer  til  at  se  ud  i  naturlig  stør¬ 
relse.  Til  sidst  kan  man  fd  ud¬ 
skrevet  de  talkoder,  der  skal 
bruges,  i  en  SYMBOL-kom- 
mando  for  at  skabe  tegnet .  □ 
Martin  Vith 


100  PEM  *»*********»*»**»«*****«»««*•* 

110  REM  *»«  CHARACTER  MAKER  ***t 
120  REM  ******************************* 

130  REM  *  SKREVET  AE  MARTIN  VITH  1985  ♦ 

14«  REM 

llø  REM  *»***»*»»  VRPIRBLEP  OG  SKflERMPILLEOE  ttttttttt 

100  INKBøLøniNKRi,?8DB0R0ER>0  MODE  l'PEN  I  PAPER  0  I HK  2.«  INK  3.9  DIN  Uf  9 . 9  > 

190  FOR  A-l  TO  9 1  FOR  B-l  TO  9  U<R,B>-0  NEXT 'NEXT 

200  PEN  l'LOCATE  1,12  PRINT"KAPAKTEREN  ”.CHP*< 243 H"  " 

210  N*-"AMSTRBD" ' PEN  2'LOCATE  2,14  GOSUS  760 
220  M9--CPC  464"  PEN  2'LOCATE  2,17'GOSOB  760 
230  M*-"CHRRBCTER" 'PEN  l'LOCATS  1.20  COS'JB  760 
240  M*-"MAKER"  PEN  l'LOCATE  3,23  GOSIIØ  760 
250  PAPER  3 'PEN  Ø'LOCATE  1,1 'PRINT"  " 

260  FOR  A-2  TO  9'LOCRTE  l.APRINT"  " .STRING*' 0.  143W  NEXT 
270  LOCATE  1,10  PRINT" 

280  PAPER  0' PEN  1 

290  WINDOW  »1,12,16.1,10  PAPER  »1,2  PEN  »1,0_CLS  »1 

300  PLOT  274 , 399 . 3 ' DRAW  639,399  DRAH  639.0’ DRØN  274.0  DRAM  274.399 

310  PEN  l'LOCATE  22,2'PRINT  "PROGRAM  STYRING' " 

320  PAPER  0 ' PEN  l'LOCATE  19. 4. PRINT  CHP*f 240 > ,  PEN  2PRINT  OP 
330  PEN  l'LOCATE  19,6’PRINT  CHP*' 241 >. 'PEN  2  PPINT  “NED 
340  PEN  l'LOCATE  19,8  PRINT  CHP*' 242 ) .  PEN 
350  PEN  l  'LOCATE  19,10'PPINT  CHR*'243>.  pEN  2  ,pPINT  ,;HØ.IPE 
360  PEN  l'LOCATE  19.12'PRINT  “DEL" , 'PEN  2PRINT  SLETTEPPIK 
370  PEN  l'LOCATE  19. 14  PRINT  "COPY" , _PEN  2  PRINT  LAVE  PPIK 
3BØ  PEN  l'LOCATE  19, 16' PR INT  -CLR",'PEN  SPP'NTSLETTEP  HELT 
390  PEN  l'LOCATE  19.18'PPINT  "ENTER",'PEN  2  PRINT  “GIVER  KOOEP 
400  PEN  l'LOCATE  19. 20  PRINT  "P"  'PEN  2'PRINT  “pWSE 
410  PEN  l'LOCATE  19,22'PRINT  "S",  PEN  2  PRINT  "STOP  PAUSEN 
420  PEN  l'LOCATE  19.24  PRINT  "F".'PEN  2  PRINT  "FARVEP 
430  X-2Y-2'X*-CHP*'143) 

440  REM  tUUUtU  HOVED  PROGRAM  «****»*»* 

460  LOCRtÉ'xIy'PEN  2PRINT  X»  PLOT  236»X*2 . 226-YT2 . 2 

470  IF  U<X,Y'-0  THEN  PEN  ø  LOCATE  X.YPRINT  X*PLOT  23«*X*2.2|6-Y»|'® 

480  IF  U(X,Y)-1  THEN  PEN  l'LOCATE  X,Y  PRINT  X*  PLOT  236*X*2 . 226- Y*2 , 1 
490  NEXT  S 


500  IF  X>2  AND  INKEYf8>-0  THEN  X-X-l 
510  IF  X<9  AND  INKEY' 1 >-0  THEN  X-X.l 
520  IF  Y>2  ANO  INKEY' 0>-0  THEN  Y«Y-1 
530  IF  Y<9  AND  IHKEY'2»-0  THEN  Y-Y*l 
540  IF  INKEY(9)-0  THEN  UfX,Y>-l 
550  IF  INKEY<79>-0  THEN  U(X,Y)-0 
560  IF  INKEY(16)«0  THEN  GOTO  190 
570  IF  INKEY<27>-0  TNEN  GOSUB  610 
500  IF  INKEYfl*)-*  THEN  GOSUB  630 
590  IF  INKEY(53>-0  THEN  GOS'JB  830 
600  GOTO  450 

610  IF  INKEY!  60  >-0  THEN  RETURN  ELSE  610 
620  REM  ttttttttt  SAMMENTÆLLING  HF  KOOER  ********* 

63*  CL8  »1  PRINT  RI  PEN  »1.1 
640  FOR  A«2  TO  9'SUM-Ø 
650  IF  Uf2,A)-l  THEN  SUM-SUM.128 
660  IF  LK3.A1-1  THEN  SUM-SUM.64 
670  IF  LK4,A>-1  THEN  SUM-SUM.32 
6øø  IF  Uf  5 .  A  >- 1  THEN  SUM-Sl.iM.16 
690  IF  U'S.Bl-i  THEN  SUM-SUM.ø 
700  IF  Uf  7 , B  >- 1  THEN  SUM-SUM.4 
710  IF  Ufø,A)-l  THEN  SUM-SUM.2 
720  IF  U(9,A>-I  TNEN  SUM-SUM*  1 
730  PRINT  *1 ,  SUM.  NEXT 
740  RETURN 

750  REM  **«*«»»**  STORE  BOGSTAVEP  ttttttttt 
260  FOR  N-l  TO  LENf  M») 

770  FOR  T-0  TO  7 

700  P-PEEK  '60500*' BSC'MID*'M*,N, 1 >>-32>*8*T> 

790  L<T).P' NEXT  SYMBOL  140.L(0>*L<0>.L<  1  >,Lf  I  >,L<2>,Lf  2>.L<  3>,Lf  3  ' 

800  SYM80L  141  ,Lf 4 >,L(4 ).L<5>.Lf 5 l.Lf 6 >,L<6>-L<7 >.L<7 > 

810  PRINT  CHR*f 140 )*CHP*' 10  >»CHR*' 8 '.CHP*' 141 '.CHP*'  1 1 V  NEXT  RETURN 
820  REM  FARVEP 

838  PEN  1  LOCATE  1,12'PPINT  - 

840  PEN  l'LOCATE  I  12  INPUT  "BOPDEP’  -.H  IF  H'?6  OP  H'ø  THFN  830  FISF  ROPDFP  H 

850  PEN  1  LOCATE  1,12  INPUT  "PAPER’  ".HIF  H>26  OP  H'Ø  THEN  850  ELSE  INK  ØH 

860  PEN  l'LOCATE  1,12  INPUT  "PEN  I’  -,H  IF  H>26  OP  H'Ø  THEN  860  FLSF  INK  IH 


870  PEN  l'LOCATE  1,12  INPUT  "PEN  2’  -.H  IF  H>26  OP  H'ø  THEN  870  FLSF  INK  2  H 


880  PEN  l  'LOCATE  1- 12  INPUT  "PEN  3’ 


".HIF  H>26  OR  H'ø  THFN  880  ELSE  INK  3H 


890  PEN  1  LOCATE  1-12  PPIHT"KAPAKTEPEH  ".CHP*' 243 ' '  PETUPU 
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■  Dette  program  udskriver  al¬ 
le  de  muligheder,  der  er  tor  de 
4  sidste  cifre  i  et  CPR-nummer. 
Når  tødselsdatoen  og  ens  køn 
er  opgivet,  skal  man  indtaste 
starttallet  tor  de  4  sidste  cifre. 
Man  kan  så  checke  at  ens 
CPR-nummer  er  lovligt .  □ 

Lars  Christensen 


lø  '  "Check  CPR-nurore,  <c>  bu  L  C  Soft 
20  MODE  1 

30  INPUT  "Hvilet  a ,?r  er  du  fodt  " .  a 

40  IF  a<  1 9øø  OP  a.M985  THFN  PPINT  CHR*e 7 HP*«'  1 1  > ;  : GOTO  Sø 

50  INPUT  "Hvilken  ro? .? ned  er  d"  fortt  ".ro 

6ø  IF  rod  OP  n, >12  THFN  PPINT  OHR*<r  7  >CHP*<  1 1  X  ‘  GOTO  SØ 

70  INPUT  "Hvilken  da  9  er  d"  fodt  :  ".d 

00  IF  d<  1  OR  d>31  THFN  PPINT  OHP*1' 7  *CHP*<  1 1  > ;  : GOTO  Sø 

90  PPINT  "Er  du  M’'?nd>  eller  vinde >  s  •• ; 

100  k*=UPPER*< IMKEYSX IF  k*=""  THFN  100 
110  IF  k*="M"  THFN  k=l ;GOTO  140 
120  IF  k*="K"  THEN  k=øG0TO  140 
130  PPINT  CHR*<7)j ‘GOTO  tøø 
140  PPINT  k* 

150  INPUT  "Udskrift  fra  nummer  «  ", start* = start*VØL< start* > 

16ø  WHILF  LEN< start* X4> start*»"0"+start*  ‘  HENO  =  start*=LEFT*< start* , 4  ) 

170  IF  VfiU start*  ><>start  THEN  PPINT  CHP*«'  7  >OHP*<'  11  > ?  :  GOTO  15ø 
180  PPINT  "P( ri n ter >  eller  S< k aerm >  ! 

190  k*=UPPFP*r INKFY*>‘ TF  k*=" "  THEN  190 
200  IF  k*="P"  THFN  *=8= GOTO  230 
210  IF  k*="S"  THEN  s*ø ‘GOTO  230 
220  PPINT  CHP*'  7 > : ‘ GOTO  190 
230  MODE  1 

240  PRINT#*,  "Udskriften  er  for  en  "  :  ‘  TF  r-  =  l  THFN  PRINT#* .  "mand"  FI  SE  PPINT#*,  "kv 
i  nde " 

250  PR I NT "Fodt  den"d"i"m:a 

260  d*te=4*rd\10  >+?■*(  d  MOD  1 0  >+?*<•  mM  ø  >+7*<  m  MOD  1 0  >+6*<r  (  *  MOD  løø>Mø)+5*tf  *  MOD 
10> 

27ø  k4=VRL/ MI D*< start*,  1  •  1  ) > : k3=VfiU MID*< start.*, ?,  1  >>‘k2=VRI/MTD*<  *tar*,3, 1  )>‘kl 
*VflL< MID*< start*, 4, 1 > > 

280  IF  k=ø  THEN  kl=kt  AND  254  ELSE  H='H  AND  954>+1 
29ø  ok=<Cdate+4*k4+3*k3+2*k2+kl )  MOD  1 1  >=ø 

300  I F  ok  THEN  s*=M  T  D*'  STPSC k 4* 1 øøø+k  9* 1 Øø+k 2* 1 ø+k t  > . 2  > ‘ WH I LE  LEN< s* X 4 ‘ **= " 0 " +s 
* • WEND : PRINT"  "+**: 

31ø  k l=k 1+2 ! IF  kl< lø  THEN  29ø 
320  kl=k‘k2=k2+l‘IF  k2<lø  THEN  29ø 
33ø  k2=ø‘k3=k3+l‘IF  k3<lø  THEN  290 
340  k3=0 : L4=k4+1 = TF  k4<5  THFN  290 
35ø  FND 


Dette  fantastiske  program  til 
Commodore  64.  der  i  øvrigt  er 
brugt  til  et  af  forsidebilledeme, 
er  lavet  i  BASIC .  Det  skal  man 
dog  ikke  lade  sig  nane  af. 
idet  programmet  laver  sig  sel¬ 
vom  til  maksinkode  i  løbet  af 
kun  6  minutter. 

Programmet  giver  dig  mulig¬ 
hed  for  at  tegne  de  utroligste 
ting,  og  med  fantastisk  man¬ 
ge  smarte  kommandoer: 

F1  -  Fyld  et  aflukket  områ¬ 
de,  med  en  farve. 

F3  =  Skifter  baggrundsfar¬ 
ven. 

F4  =  Skifter  kantfarven. 

F5  =  Loader  et  savet  billde 
(OBS!  virker  kun  når  turbota- 
pe  ligger  i  hukommelsen). 
F6  =  Save  billeder  (også 
med  turboen  inde). 

T  =  Tyk  skrift. 

Y  =  Tyk  skrift  1  Y-retning. 

L  =  Linie  (tryk  L,  flyt  tegne- 
krydset  og  tryk  lire.  En  linie 
tegnes  mellem  de  to  punkter. 
R  =  Rubber  (viskelæder), 
sletter  istedet  for  at  farve. 

N  =  Normal  skrift  og  fart. 

F  =  Fast  sætter  skrivehastig¬ 
heden  op. 


5  RFM  ######*##**#***#**###***###### 
#** 

7  POKE  53281  ,  ø ;  PCKE  53280,0 
10  PRINT  "VENT  6  MINUTTER" 

FOR  A=ø  TO  121 ;  REFID  QSF=ø 
FOR  Al=ø  TO  18  STEP  2^0=0 


2ø  FOR  B=1  TO  3:B<B>=ASC<MIDS<QS, 

1 . 5#fll+B, 1 )  )-48 : IF  B(B>=~15  THEN 
B(B>=10 

25  Q=Q+B(B>#41 T<B-1 ) : F=F+B(B) : NEXT 
3ø  POKE  32768+fl#2ø+fl  1 ,  Q/256 
POKE  32769+ A*2ø+fll, 

Q- I NT < Q/256 >*256 

4ø  NEXT:F=F  FIND  15 =  G=ASC(RIGHTS <G$, 

1 >  )-64 

5ø  IF  FOG  THEN  PRINT  "DATA  ERROR  IN 
"  PEEK  (  63  )  +PEEK  <  64  )  #256 :  FF=FF+1 
60  NEXT : IF  FF>ø  THEN  END 
70  AS=" <S0RT>SVS33792"+CHRJ (13> 

8ø  POKE  198, lø : FOR  H=1  TO  10 

POKE  630+fl ,  ASP  <  M I DS  <  AS , A , 1 >  > : NEXT 
2048  DFlTFI  , øø891S30?J7? !8øøøSløPLM9N 
IFØDK 

2068  DFITFl  UØE7V57F193V7V5EØDLH1 ; 
MU04VD21B 

2088  DATA  DC63PU; ;  IME?E@1K; 

I NE7FØD4NXFN  J 

2108  DFITFl  @G!øøBNFBHB'»ø6<H3!SF!DC2EO; 
7SØU 

2128  DATA  30U2 1  LE  1 BP5H I D37GW5 1  K<  1 2@ 

6 !  U I M 

2148  DFITFl  4B2=i  I=M3MXø !  =VB5V; 
512W4GAVT7GM 

2168  DflTFI  S<; !UI4B2?5I=M3XXU54LflGKF5 
V9Løfl 

2188  DflTFI  8VKH>PC9LEKH0IH? ! 6=<DMIH? ! 
6<XDC 

2208  DFITFl  MIHS76XDSC;  S<;  i 
<DCfl JN<øLE 1 LH 1 B 

2228  DflTFI  1 3<HKHWHK ,  <0>BØKGØNQQBM>I1B 
V07VB 

2248  DATA  9 ! VNRUSØV ! 30ES5006K76171LØ 
VPJØC 

2268  DflTFI  4QJG>; P42H260A1 1QJ12SPK032 
S>TNK. 


2288  DATA  ØMSBG2EKH27H76 I 0 1 NP<?QFN=2 
6646N 

2308  DflTFI  =ø3>BøN61KGi 
A4<N0K67 I B22J70N0KH 
2328  DflTFI  4?HCflJJ?093L8XH<4KH; 
I7F10V5965H 

2348  DATA  KONU JU9X59X5SR50L  !  U9'2 1  MØRN 

øuøil 

2368  DflTFI  4061L ! P ! @0Q0D9FFM> ! 30607KL 
>PS>F 

2388  DATA  JUVH=L50>øOIH@D9NIG@D3MHEK 

if<v@ 

24ø8  DATA  SQO ! 7S0SRMQ0=M>VL03=1N06?C 
V930K 

2428  DflTFI  OCVFCVSQO  ( 7S0SRMG0=M> JXPPH 
GQ!  10 

2443  DflTFI  !  5BØV4=C1R299M2VNIXCES005X 
PBC3D 

2468  DflTFI  XX4X71JSDXØH ! 4DSMH00D2XHG; 
IRS4® 

2488  DflTFI  G018HVCS2SQ0=.J; 

6K 1 P0S3T 4CL 1 Efl ; C 

2508  DflTFI  5M ;  DC  1  M<øUP99N  1 7DE700565GV 
4=C1E 

2528  DATA  flLøN@DFM>L9ø8=3 ! NIMCEPHQL9 
ØH26A 

2548  DATA  9N 1 3DEHM0R9F <5 1  FIM3B=6=  J 
ø=5IHM3E 

2568  DATA  MUØI 077003508 J>4FV@?HKflJ@fl 
ØGAØE 

2588  DATA  @eøH91RNøi|®øL4øEFl2I84ø4N48 
1 !  ILD 

2608  DATA  KFTK0NKPUF22>9D7TøG90HQ07F 
ØNØDE 

2628  DATA  6? JEM07FØH267052XVMX4 I L ; 
HDø=15I 

2648  DATA  NJNSK03?HLAE4D1=0C5SØV KH= 
L ,  LNJ 

2668  DATA  GKOQG ; E 1 2U05AC 1 750XH I = i 
ØECØSMRF 

2688  DATA  37GGAØECø24T37G2NøECøK>G37 
Gl>10 

2708  DATA  ECØXKOPOSPMS® ! 6UK00U4GT10M 
KPØØF 
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S  =  Slow  nedsætter  hastig¬ 
heden. 

P  =  Printrutinen,  dumper  et 
skærmbillede  til  printer  (MPS 
801). 

CLR/HOME  sletter  skærmen. 
CTRL  +  (1-8)  giver  farveskilt. 
Og  altsammen  1  rent  maskin¬ 
kode. 

Håber  du  får  fornøjelse  ud  af 
dette  virkelig  anvendelige 
tegneprogram. 

Gorm  Salomonsen 


2728  DflTfl  Q7<2L;=C1B3øH!2MCE6?P6NQFC 
ER7PD 

2748  DflTfl  = I 7@TøøO I ACER7P472 1 P3  JN I DC 
E2>Pfl 

2768  DflTfl  71S4RI50NXPJE ! D ! N>QGø4MøD9 
03EØF 

278S  DflTfl  >6N<5 I PK06 1 S 1 0> I @ø>RNP@ø=fl 
ØR>ØB 

2808  DflTfl  I N I ØS6E JOL I 3XN3QK9K0U=X4 1 H 
1 8NS@ 

2828  DflTfl  S7K0MKBNISGEø>24M;  602AH; 
?X1HI*I;D 

2848  DflTfl  GI 15010TK1X4CI 1N?ØCI 1XEØQ0 
1B2ID 

2868  DflTfl  0MK8>  JKEQ0G2HMU  J 4K9N 1 8?D9? 
D3?DJ 

2888  DflTfl  ø?D 1 7D47D8 J>TN9FKH@GK JK8L< 
øRCSfl 

2908  DflTfl  2860 JøflWV8PMFHLKG250>P0S 1 N 
SKløE 

2928  DflTfl  8DL7VAXPF 3VEKEK JFT ! CUPKOBH 
PKONK 

2948  DflTfl  S JSU=S0H I U=S7 1 JS JS07LFKHØG 
KJK8G 

2968  DflTfl  Pøø ..  >ø< VVNP0K0M50TD5 1 40NTK 
0E5IC 

2988  DflTfl  50N I FTVW4MR 1  HK  1 TK ;  9C 1  i 
0>@R2?RøM 

3008  DflTfl  UX4M0 1 EU>ø= 1 NF06BØWX4L0 1  F@ 
ØECØM 

3028  DATA  4L8LV4N91Q9F ! X49<1 JS5SK0GX 
47<1H 

3048  DflTfl  <T502?4Mø ! 305R5 1 T42MH5R I <U 
GSVlfl 

3068  DflTfl  øH2fl I >OKH>0 I HØDflN I JØD 1 ?H? ! 
D= !  DU 

3088  DflTfl  <4KF9F 1  PD>2V3EVTPV JQO ! N I D .. 
DftNID 

3108  DflTfl  E, DBQIF; DJNIG; 

BH8LHR 1 B5PCGNBC3Q 

3128  DflTfl  I XKOfl  1 32X< ;  KH= J V93V ; 
RF!49HHT4ft 

3148  DflTfl  HT4HT 49T41 t l 0EDFH0565® Nøl 
OR !  TE 

3168  DflTfl  JP03 I <N7øQ 1 ?PK=N?ø=N>GU<9L 
ØKL>0 

3188  DflTfl  GT>40<!VØWK1?I;4D1X; 
EHDØGWJXJND 

3208  DflTfl  QKOFG; = ! 2VBFHDØE6N=LNQK0KK; 
!  D2D 

3228  DflTfl  09 I QSØS<7 111211 33F8 J>F 1  <@T 
4E=20 

3248  DflTfl  H079N I @<DB<D6Q IfKD J7 I LFT3T 
IIHEH 

3268  DflTfl  E12<SIPQ0=; IflX4WU103V@PL86 
DNL>I 

3288  DflTfl  2@MPK0  i  8N50KHM>PD<NNPH@D20 
57U1B 

3308  DflTfl  0 ! VNNP10DFM>240>JøIfl67E65H 
2KUIJ 

3328  DflTfl  C<VIPK1 ; ) 3I7D<D8J>M4K<5IH2> 
DDØH 

3348  DflTfl  9N I E<DflX4WX 1 5SM JFT76NLQ05R 
I71SE 

3368  DflTfl  50HLGTAX4WX 1 5SMBGT>6HRKQ6 1 
SSKOØ 

3388  DflTfl  >QIHV4P424BØEØØØflØJHN>SøeO 
95?flJ 

3408  DflTfl  >6NflX4WXlCHP!H; 

CL1 X !  K.E !  DNØD97 1 B 

3428  DflTfl  VKNV00IU?;EØD!D9NI=JIG<DAX 
4WX1F 

3448  DflTfl  5SMX<15»  =H3=WIØI1FTØJ>0FTGM 
4332F 

3463  DflTfl  flX<C==3ø==5FSGN4B04605 101 
I?W4G 

3438  DflTfl  832;=ØV9F86DNL>20MPK0, 
8N50KflH>J 

3508  DflTfl  PD<FNI!UIN>QCH>HFø»04U8>5 
IT4;G 

3528  DflTfl  CXI;=16>VQ<7S<; 

0003 ! 6WK0 ! N I 8 J>K 

3548  DflTfl  FN  1 86DFM»2ø  1 56LR?øBS2QMG@ 
DUI5D 

3563  DflTfl  PKKS 1 1 7H 1 <Eø>2øRCSfl I >00000 
I97DH 

3588  DflTfl  9NI83DP05F928 ! ØTLØXRVJ6NFK 
HMX4C 


3608  DATA  =VVH91 1UP9NIGØDØ<:DØ !  I IØD1  ! 
I JØDD 

3628  DflTfl  KKH 1 ?H>4KWø I OH 1 2H2SG?LU4> ! 
2MG2E 

3648  DflTfl  971 !H8PX43629i 
R8Q0BM>I*1FV  1 7 1 P7 1 L 
366 S  DflTfl  VE2<FVø1@206I@DB: 

I JX?JØD10>2HVN 

3688  DflTfl  fl; 17 ! 6>K8T319C13GVØDSI@D ! 0 
Jfl;  i@ 

37ø8  DATA  >K8 I K9N I V JQVD900QVF ; 
<E8<P71A<3J 

3728  DflTfl  F;«FVQX?I@D7VE<7S97S?; 
IøJNFLOfl 

3748  DflTfl  XX4B923GVSCS 1 ØDXP JD<N7 ! 68 I 
N2L0J 

3768  DflTfl  fl; I >K8UH8N I V JQVD9ø<NV>X42T 
V20MK 

3788  DflTfl  N@DVX4!WR>09NIGØDVX4UUVFN 
IKL;  H 

3808  DflTfl  XRVMR71 ! IRM3?R4QQV@35UT?FN 
IVX40 

3828  DflTfl  XRVG=STN3?UHQP4HCV ! 305=V6R 
9W<VB 

3848  DflTfl  7 ;  flSGHRQiJfl ;  I H JHPB7 1 05072 1 W 
4TU1I 

3868  DATA  UH 1 I VLGNE60 1 ØL02AS2CN0NE 1 N 
1CV4L 

3888  DflTfl  J01GfløFRSJ;<JW4CRV=VU; 
RP4UVØNI0 

3908  DflTfl  E2H'?SPE000BD4F'LHE2<Øø2CSøW 
1CBUF 

3928  DflTfl  80 I B90QPO>=V9FHBC3EO I XCESO 
0184K 

3948  DflTfl  9M2P0 I B90QP0>=V5XPBC3 VN 1 XC 
ESOOH 

3968  DflTfl  R299M2G= I ØPLMS 1 2HC9R 1 LW4XR 
VRSRF 

3938  DflTfl  ;  KTG=  I  HL  1 9R 1 4=6HUG  JU 1 4=6>K 
N3QJG 

4øø8  DflTfl  HJN7VE0!65=E=R1 øøøøøø J4K4G 
899  ID 

4028  DflTfl  7B2EK3HØØØØØSJ3HØØØØØSJ3HØ 
øøøøH 

4048  DflTfl  SJ3HøøøøøSJ3Høø960G=SRWV8R 
VSJ3E 

4068  DflTfl  HøøøøøS J3HØØØØØSJ3HØØØØØSJ 
3Høø@ 

4088  DflTfl  øøøS J3HøøøøØM<ø9R 1 =00B52M> 
39U4B 

4 1 08  DflTfl  6 !  f1JGT= !  H4GTE=F1øGTF  !  MUFTHU 
GFW1J 

4128  DflTfl  @3=1 5RPK078NL I i 
H02WA2EKH00 I HUGO 
4148  DflTfl  0U1CX10BDLI; 

1  ?25«4UVE2H?SP0Q0L 
4168  DflTfl  TKHØPLRV1TX45; 

ØSX4 1 C 1 OøØKONflDT 0 

4188  DflTfl  L4ø 1 52 I ØØL90KB2=N IHØDPOIJØ 
D17HC 

4208  DflTfl  = ! D? ! D<4KF9FSGN>2VGQVDCV?D 
VQ>1  J 

4228  DflTfl  71 1HIQ7VSH01 VWPFDVDKRJØFB5 
PNNIL 

4248  DflTfl  XCESOO 1 849M24S I VCEEL07HT8J 

X38C 

4268  DflTfl  =?H7H ; VH2<38D?HNQ0P0 I J@D=N 
IHØDD 

4238  DflTfl  1 ?H= ! D? ! D>4KD9F ! RD>2VGQVDC 
V7DVJ 

4308  DflTfl  0> 1 7 1 1 H I 07 VS4M0000 1 00<N3BC 
3VNIM 

4328  DflTfl  XCES00R299M27M>XL9; 

1  LXøH<M9'v'G2F 

4348  DflTfl  BH>!7ø0G2>I193øS=HC6øTX4X< 
1  U>ME 

4368  DflTfl  Døl ! 70QP4480JLDØNIC ! D9LSFN 
I<FEE 

4388  DflTfl  I ØØBB 1 fl ! N JØFB5PXN I >EEØLØS= 
<20 1 G 

44ø8  DflTfl  flEEflLøD9?UKH?PLOUl>TOTN8M 
U-710 

4428  DflTfl  HKfl9XGflflø VG200 I E ; DXO I G ; 
DSØS0I6H 

4448  DflTfl  4W67P6N77UEE4MØØF7XE7VEERJ 
0<OflK 

4468  DflTfl  RIJ4PBB 1  W7D98<X4RD22L ; 
<BlLV9øiJøK 


&&  45 


Jagten  på  det 
forsvundne  auld 


■  Du  er  Harrison  Ford  -  den 
store  helt  der  ikke  går  at  ve¬ 
jen  tor  noget  som  helst. 

Jagten  på  det  forsvundne 
guld  er  gået  ind.  og  du  skal 
hente  tre  bægre  at  guld  tor  at 
fuldføre  din  mission. 

Når  du  henter  bægrene,  er 
der  tarer  overalt  -  et  sted  er 
der  en  faldlem,  et  andet  en 
dødstlise  samt  adskillige  an¬ 
dre  dødbringende  farer. 

Etter  de  tre  første  bægre  tap¬ 
pert  er  bragt  i  hus,  går  du  vi¬ 
dere  til  næste  bane. 

Styringen  foregår  via  pileta- 
sterne.God  jagt.D  Jespei  Dein 


1  LET  yp  SØ:  GO  TO  løøø 

2  BORDER  2:  FOR  n  =0  TO  31:  FO 
R  m=e  TO  21;  PRINT  AT  »,n 

3  NEXT  l»  :  NEXT  ft 
10  LET  Z  =2 :  LET  X=1  LE 
12  LET  fl=2+INT  ™ BND *5) 

2=3*INT  (RND*5> 


70  31: 

-n,  O 


t|gINT  RT  12.13;  FRFCH  0;  IN 

i  IF  gpsø  THEM  PRINT  HT  3,0; " 
NU  ER  DU  HRRRISON  FORD, DER  SKRL 
PRR  SKATTEJAGT  FØRST  SKRL  DU 
HENTE  3  GULD-SKARLE7MEN  PRS  PRR 
' DØDS -FLISEN ' , MEN  PRS  OGSRR  PRR 
FRLDE  LEMEN  INDENFOR  DEN  ONDE 
CIRKEL, NRRR  DU  HRR  GJORDT  DET 
KOMMER  DU  UIDER  TIL  NREST £  BRNE . 

TRYK  P"  :  PRUSE  0:  PRU3E  0;  CLS 

LET  yp«l:  OO  TO  2 

29  FOR  n  =  10  TO  20;  PRINT  RT  7, 
n;  "  .  :  NEXT  n 

30  FOR  t=10  TO*  20:  PRINT  HT  17 
,  t :  NEXT  t 

étl  FOR  f-7  TO  17:  PRINT  RT  f,l 
0; " . “ :  NEXT  f 

32  FOR  b»7  TO  17:  PRINT  RT  b,2 

0;  "  •  "  :  NEXT  b  _____ 

33  PRINT  RT  0,e;  INK  l;  •— 


— LPT  mSTTOT  let  r 

i  =7UMT  (PHD  *9  t 

41  IF  f i =15  RND  f-14  OR  f i »15 
RND  f=15  THEN  GO  TO  4.0  ,  _  _ 

4.2  IF  fi=10  RND  f  =14  OR  fi=10 
RND  r=16  THEN  GO  TO  40 

43  PRINT  RT  0,23;  PRPER  1,  INK 
7; "MEND=AftA" 


50  IF  INKEY*="8"  TMEN  LEX  X  =X  ♦ 
1:5^iri^iX=--é^‘?HEN  LET  X=X- 


1 '  bSRIF^ l5KEYi="7f-  „ShEN  LET  Z -Z - 
1:s7R££Tinkey*  =  '-6<-  Then  let  z-z  + 
1:s5RiJfTz* I  THE*XLe9  Z  =2 :  PRINT 

RT59'l^ X=0  THEN  LET  X=1 

60  PRINT  RT  Z,X;"B" 

61  LET  U*1*INT  (RND  *5) 

62  LET  y=l*INT  (RND *5.1 

63  IF  »Ul  THEN  GO  TO  510 

64  IF  Z-10  RND  X  = 15  THEM  LET  X 
=  9:  PRINT  RT  Z,x;  -ft":  PH IN  I  HT  1 

®'6B;IF  Z*15  RND  X s 15  THEM  LET  I 
■16:  PRiNT  RT  *,x;  PRINT  RT 

1070SIP®Z=12  RND  X  =15  T MEN  BEEP 

’Sl  IF^^’flND  Z-2  RND  X  =  1  THEN 
BEEP  .1,7:  LET  PO»POfl._ PRINT  R 
T  0,po;  INK  6 ;  PRPER  0;  "f  :  LET 
P-0:  LÉT  fl-2+INT  (RND*5| :  LET  f 
2-1+INT  (RND*5)  :  PRINT  RT  12,15; 

PRPER  0;  INK  6;  "f "  :  LET  f-10*IN 
T  (RNOftO) :  LET  fi-7*INT  (RND*9) 
73  IF  pø =3  THEN  GO  TO  500 
100  IF  Z=fi  RND  X=f  THEN  GO  SU5 
400 

110  IF  U=1  THEN  GO  SUB  300 
120  ir  y=l  THEN  GO  SUB  350 

129  IF  Z=f 1  RND  X=F2  TMEN  LET  » 
and  siønd -1 :  PRINT  RT  0,*;  P«P=R 
1;  "  ":  LET  t**w-l:  IF  w  <28  THEN  G 
D  TO  710 

130  IF  Z»fl  RND  X  =  f 2  THEN  BEEP 
.1,6:  BEEP  .1,7:  IF  *>»nd<=0  THEM 

LET  a*»"DU  HRR  GRRET  PRR  EN  DØD 


LET  I>Z  + 
PRINT 


3-FLI5E":  FOR  n  -1  TO  LEN  af.  PR  I 
NT  RT  5,n;a*(n  TO  n )  BEEP  .  i,n. 

NEXT  fl:  GO  TO  710 

200  GO  TO  50 

300  FOR  n«ll  TO  1*.  PRINT  RT  n  , 
14;".";RT  n -l ,  14;  "O"  •.  beep  .ai,n 

301  IF  Z  =n  BHO  THEN  LET  p » 

0:  PRINT  RT  12 ,15; "f " :  BEEP  .  1,- 
2:  LET  Z  *2 :  LET  X  -1 :  LET  «and»M 
nd-1:  PRINT  RT  0,w;  PRPER  1; “ 

LET  *■«*-!:  IF  liandi-S  THEN  SO  T 
O  71S  „ 

3S3  NEXT  n.  PRINT  AT  *4 , 14 : "O"  i 
RT  1»,  14.;  ^ 

310  RETURN 

350  FOR  n  =11  TO  14:  PRINT  RT  n, 
16;".";rt  n-i,i6;''0" 

355  BEEP  .01, n 

360  IF  z=n  RND  X*16  THEN  LET  P« 
0:  PRINT  RT  12 , 15; ”f " :  BEEP  .  1,- 
LET  X  =1 :  LET  luand  =»a 
RT  Ø,iv;  PRPER  l;  ••  : 

IF  mand  <  =0  THEN  GO  T 


2:  LET  Z  =2 : 
nd-1:  PRINT 
LET  li)  -t»  —1 : 

0  710 

370  NEXT  n 
377  PRINT  RT 
380  RETURN 
400  PRINT  RT 


PRINT  RT 
10,16;  ”1 


14,16, "O" 


Z  ,  X ;  PRPER 
0  to 


H  1;  •••":  FOR  f  sø  tO  20.  BEE 
/:  NEXT  f  PRINT  RT  Z,K;"D" 
W<2Q  THEN  GO  TO  700 


2;  FLR5 

;ep  .  i , 

IF 


402  PRINT  RT  0,«;  PRPER 

404  LET  Z  = 1 :  LET  X*t 

405  LET  U=*-\ 

,  407  LET  1  IW1D  »91 

i«74lNT  ( RND  #9) 


l 


LET  t 


410  RETURN 

JEEP  .  1 , 


i&gmiÆn 

,24 ;  ;  RT  14,24;" 

_ _  PRINT  R+  13,25;"  RT 

14,25;'’  BEEP  2,1:  PRINT  BT  13 

,  26;  "  RT  14,26;  '•  BEEP  2,2: 

PRINT  Rt  20,0;  FLR5H  1;  "PORTEN  t 
R  PRBEN ,  GRR  DER  IND  !  !  *'  :  LET  »t« 
1:  GO  TO  50 

510  IF  Z  =14  RND  X  =14  OR  £  -14  «N 
D  X  =25  OR  Z  =14  RND  X =26  JMLN  CLS 
i  GO  TO  7000 

521  IF  *0X4  RNO  X024  OR  £0  14 
RNO  X  025  OR  Z<>14  RND  X  <  >26  TH 

EN  LET  k 1>1:  OO  TO  50 

522  GO  TO  50 

700  PRINT  RT  10,0; "ha  ha, der  fa 
Idt  do  not  i  gift-  stange  hult« 
til" 

709  BEEP  1,10:  PRINT  RT  Z,X;  OP 
EN  Bl;  PRPER  2; "#" 

710  INPUT  "EN  NY  ! 


720 

730 

1000 

1010 

1020 

1030 

1040 

1050 

1060 


SKRTTEJRGT  ? 


IF  Z*-”J 
CLS  :  ST 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


1070  PC'KE 
2000  POKE 


2010 

2020 


POKE 

POKE 


2030  POKE 
2040  POKE 


2050 

2060 

2070 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3100 

3110 


POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 


3120  POKE 
3130  POKE 


U5R 

U6R 

USR 

USR 

USR 

USR 

U6R 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

USR 

2 


OP 


THEN  RUN 


"D" ,BIN  1111111 
"O" 4l,BIN  1000001 
"U” *3, BIN 


U 

(U 

"u 

"u 

“U 

"n 

•’n 

•n 

"n 

”n 


løøøøøl 
♦3, BIN  løøøøøl 
1  +4, BIN  løøøøøl 
■  +5 , BIN  løøøøøl 
•♦6, BIN  1000001 
* +7 , BIN  1111111 
* , B IN  01111110 
♦1, BIN  01111110 

-  -  01111110 

01111110 
00111100 
00011000 
00011000 
00111100 


42, BIN 
+3, BIN 
♦4, BIN 
“n”4S,BIN 
"n" 46, BIN 
“n" +7, BIN 


II  TI.Din 

"P" ,BIN  øeøøøøøø 
"P"+1,BIN  00111100 

_  -  01111110 

01011010 
01111110 
00111100 
00100100 
■r,  00111100 

, BIN  00011000 
♦1, BIN  00011000 
*2, BIN  01111110 
43, BIN  01011010 

-  00111100 

01100110 
31133110 
01100110 


"P"42,BIN 
••p"+3,eiN 
"p "44, BIN 
"p" 45, BIN 
"P" 46, BIN 
"P " 47 , BIN 

“f 

"  f  • 

"f  ’ 

"  f  ’ 

"f  ’ 

"  f  ■ 


44 ,  BIN 

45 ,  BIN 

46,  BIN 

47,  BIN 


3140  POKE 
3150  POKE 
3160  POKE 
3170  POKE 
4000  OO  TO 

7800  LET  Z  =  14 :  LET  X =2 

7810  LET  11=14INT  (RND*15) 

7811  LET  jU=10:  LET  pl=0 

7620  LET  12  =5  4INT  IRNPalØ) 

7621  BORDER  2:  PRPER  5:  CLS  :  PR 
PER  5:  INK  0 

7822  LET  p5=RND:  LET  mn=3 
7900  FOR  n-16  TO  21:  FOR  » =0  TO 
10:  PRINT  RT  n, NEXT  ■:  NE 
xt  n 

7903 


7910  FOR  n =15  TO  21.  FUR  B -  20  TO 
31;  PRINT  RT  R,»; .  NEXT  B .  N 
EXT  n 

7993  LET  g  l  =124lNT  IRNP*3.'  .  LET 
9».=124INT  IBND*0)  .  LET  ig=124INT 
l RND 48 ) 

7999  PRINT  RT  21 ,31  ;  "f RT  El, -3* 
;  rt  2i,  rg;  "#" 


$MD*1S.<  :  LET 


THEM  LET  X  =X  4 


THEN  LET  X i 
’  ":  IF  X  =0 


X  - 

TH 


8300  LET  p=14INT  IRNDS6J 
3305  PRINT  HT  X,X;"*" 

8006  PRINT  RT  21,23;  PRPER  7; ”ME 
ND«" ; mn 

8010  IF  INKEY  <  =  "8"  THEN  LET  X =  X 4 
1:  PRINT  HT  Z,X-1;"  " 

8011  IF  INKEY "S"  THEN  LET  X »X - 
1:  PRINT  RT  Z,X4l;"  " 

0050  PRINT  RT  Z,x;"*" 

8071  LET  X 1 =1 4INT  {BH 
X2=54INT  t  RND  * 10 ) 

8090  IF  X=ll  THEN  GO  TO  8100 
S099  GO  TO  6120 

6100  FOR  n=Z  TO  21::  BEEP  .l,n: 
PRINT  RT  n,x;"A";RT  n-l,x;“  " 
3110  NEXT  rt:  BEEP  1,7.  PRINT  RT 
n  -i,x;  "••• 

6111  IF  mn  >0  THEN  LET  Z =14 :  LET 
X  *2 :  LET  in>in-l:  GO  TO  8120 
8112  IF  mn=0  THEN  GO  TO  710 
|J4ø  IF  p« 1  THEN  LET  pi=l 

8150  FOR  n  =3  TO  15.  PRINT  RT  n , p 

5;  *" ; RT  n-l.PS; "  “ 

8151  IF  INKEY Øs "8" 

1.  PRINT  HT  Z  ,  X  -1 ; 

8152  IF  INK£YØ="5" 

1:  PRINT  RT  Z.X41; 

EN  LET  X  =1 
8163  PRINT  RT  Z,X;"A" 

8X54  IF  X>10  THEN  GO  TO  8100 

8190  IF  n=Z  RND  P5=X  OR  n-Z  RND 
psX  THEN  BEEP  .1,15:  PRINT  RT  Z, 
x; "  LET  ju=jU4l 

8191  IF  ju  >20  THEN  GO  TO  8400 

8192  PRINT  BT  15,ju;"»" 

8200  NEXT  n :  LET  p =0 :  PRINT  RT  1 
5,0;  “MMHHHHflB"  :  BEEP  .01.7:  LE 
T  pS=24lNT (RND *6) 

8300  GO  TO  3005 

8400  PRINT  RT  3,0;  PRPER  O;  INK 
6;  FLRSH  i; “NU  ER  UEUEN  TIL  SKRT 
TEN  KLRR,  GRR  UUER  BROEN, DU  ER 

DR  IKKE  BRNGE  FOR  DE  AFDØDE 

RflNDCR  TT 

8401  PRINT  RT  6, 10; "TRYK  p " :  PRU 
SE  0:  PRUSE  0 

8405  PRINT  RT  3,0;" 


8406  PRINT  RT  6,10;" 

8410  LET  Cd=l4lNT  ( RND  *2) 

6420  IF  INKEY  Øs "8"  THEN  LET  X =X 4 
1:  PRINT  RT  Z ,X-1; "  " 

8421  PRINT  RT  Z,X;"A" 

8423  IF  X  <gk  THEN  GO  TO  8420 

8424  IF  X=gk  RND  cd  si  THEN  GO  TO 
8430 

8427  IF  X  <26  THEN  GO  TO  8420 

8428  IF  Cd>2  THEN  GO  TO  8450 
8430  FOR  U-20  TO  14  STEP  -1:  PRZ 
NT  rt  u,gK;"*";RT  U4l,gk;"  " 

8435  NEXT  U:  PRINT  RT  Z,x;  FLRSH 

1;"*":  BEEP  1,2:  BEEP  1,2:  LET 
•n*»n-l:  PRINT  RT  21 , 23; "MEND=” ; 
■  n:  PRINT  RT  z,x;"  " ;  RT  Z4l,x;"» 
" :  LET  X  =2 

8440  IF  »n  <  =0  THEN  GO  TO  710 

8441  OO  TO  8410 

6450  FOR  b sø  TO  7:  BEEP  l,b:  BOR 

DER  b:  PRPER  b:  NEXT  b 

8460  LET  Z  s  18 :  LET  X  =2  :  LET  dOB 

:  LET  as-16:  LET  sa=31 

8500  CLS  :  TOR  n-19  TO  21:  FOR  ■ 

-?  six?\:p5gs  r  ink 

8502  PRINT  RT  15,31; "f";RT  17,29 
HT  16,3®;"#" 

8507  FOR  f-0  TO  18:  PRINT  BT  f,0 

;  ; rt  f,5;’w*.  next  r 

8509  LET  tu  sø ;  LET  er=l 

8510  IF  INKEY*s"8"  THEN  LET  X »X 4 
1:  PRINT  RT  Z,X- 1; “  " 

8520  IF  INKEY*s"B‘’  THEN  LET  *.*- 
1:  PRINT  RT  Z,X4l;".  " 

8530  PRINT  RT  Z,X;"*" 

0531  PRINT  RT  18,5;,r»l 

8550  PRINT  RT  (y,/l*,er; 

8551  LET  ty =ty4l 

8552  IF  tysH46  THEN  FOR  4  s -10  TO 
10:  BEEP  .1,«:  NEXT  e;  GO  TO  71 

0 

8560  IF  INKEY*=""  THEN  GO  TO  355 
0 

8561  IF  de  =1  RND  X =7  THEN  PRINT 
RT  17,7; •#“.  BEEP  .1,-3 

8562  IF  de =2  RND  X =9  THEN  PRINT 
RT  17,9;"#":  BEEP  .1,-3 

866-3  IF  de  =3  RNO  X  =11  THEN  PRINT 
RT  17,11; "f":  BEEP  .1,-3 
3570  IF  X  =26  THEN  LET  X =27 :  PRIN 
T  RT  Z , X  41;  "  " :  BEEP  .1,7:  GO  TO 
8573 

8571  GO  TO  8510 

3573  LET  desde4l 

8580  IF  de  si  THEN  GO  TO  8500 

8590  IF  d  6  s2  THEN  GO  TO  6610 

8595  IF  de =3  THEN  GO  TO  8620 

S600  PRINT  RT  as , Sa ; "  ":  GO  TO  8 

510 

8610  PRINT  RT  as4l,sa-l;”  GO 

TO  8510 

8620  PRINT  RT  17,29;"  ":  GO  TO  8 
510 

9000  GO  TO  8510 

9999  SRUE  "INDY"  LINE  1 


Kalender-rytmer 


■  Her  på  det  sidste  er  kombi- 
nationsprogiammer  blevet 
meget  populære. 

Dette  Amstradprogram  kan 
således  klare  3  forskellige 
ting,  der  alle  har  noget  med 
datoer  at  gøre. 

For  det  tørste  kan  du  tå  en  ka¬ 
lenderudskrift  tor  en  bestemt 
måned,  med  tilhørende  o- 
rversigt  over  de  personer,  der 
har  fødselsdag  i  den  pågæl¬ 
dende  måned.  Data  tor  disse 
personer  ligger  fra  linie  1780 
og  til  2990.  For  hver  person 
skal  der  være  4  data:  må¬ 
nedsnummer,  dato,  navn  og 
årstal.  Navnet  må  højst  være 
på  1 0  bogstaver,  og  det  sidste 
kan  passende  bruges  til  at  an¬ 
give  om  det  er  F(ødselsdag). 
B(ryllupsdag).  J(ubilæum)  el¬ 
ler  lignende .  Den  sidste  data¬ 
linie  skal  hedde  »o,o.«.o«. 
Programmet  kan  også  ud¬ 
skrive  en  kalender  tor  et  helt 
år  samt  tegne  dine  biorytmer. 
Måneds-  og  årskalendeme 
kan  udskrives  på  printer. □ 
Peder  A.  Pedersen 


Altom 

CFITR 

Hver  lørdag  kl. 
17-18  på  FM 
102,8  MHz  i 
Storkøbenhavn 


Danmarks 

hotteste 

dataradio 


Produceres  i  samarbejde 
mellem  The  Voice  og 
månedsbladet  'Alt  om  Data 
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:Jr  “y 
■  »al  J 


10  SYMBOL  AFTER  91 

20  SYMBOL  1.38,126,216,216,234,216,216,222 
30  SYMBOL  1«3C,  118,200,214,214,214,38,220 
40  SYMBOL  ASCCJ")  ,36,0,  124,  198,234,  198,  198 
30  SYMBOL  ASCCC),  0, 0, 116, 26,  126,216,110 
60  SYMBOL  A8C  ( *  I  - ) ,0,0, 118,204,214, 102,220 
70  SYMBOL  ASCO-)  ,48,0,  120,  12,  124,204,  118 
80  aO-ASC ( ' t " ) : bO-A8C ( ■ N ■ ) : cO- ASC ( ■ ] • ) 

90  ål-ASCCCMbl-ASCIMMSel-ASCOM 

100  x-ai:al-aO:aO-x: x-bl : bi-bO: bO-x : x-ci : ci-cO:  cO-x 

110  KEY  DEF  29, 1 ,  aO,  al 

120  KEY  DEF  28,l,b0,bl 

130  KEY  DEF  26,l,c0,cl 

140  KEY  DEF  22, 1 , ASC (*<•>, ASC (*>a ) 

130  KEY  DEF  19, 1 , A8C ( '8* ) , ASC ( *  * •) 

160  KEY  DEF  17, 1 , ASC ( * *a ) , ASC ( *#a ) 

170  KEY  DEF  39, 1 , ASC < * , • ) , ASC ( * | • > 

180  KEY  DEF  31,1, ASC  (  *  .  a  )  , ASC ( • S • ) 

190  MODE  1 S WINDOW  40, 1 , 40, 1 , 24: WINDOW  43, 1 , 40, 23, 23: PEN  43,3: INK  3,3,24 
200  LOCATE  1,4:PRINT  STRINO« ( 39, a#a ) 

210  PRINT:PRINT  STRINO« ( 1 1 , *#* ) | •  KALENDER  *  I STRINO« <11, *#* ) 

220  PRINTJPRINT  STRINO« (39, •#• ) 

230  LOCATE  11,10:PRINT  • 1 .  Mlnads-udskr i  ♦ t • 

240  PRINT:PRINT  TAB ( 1 1 ) |  -2.  )rs-udskr  1  ♦ t  * 

230  PRINT:PRINT  TAB ( 1 1 ) | *3.  B lo-ry taa* 

260  PRINTIPRINT  TAB(11)|*4.  Navnar ag l star  * 

270  a«-*Tast  dat  Inskada  nuaaar ! • : 008UB  3000: x-VAL ( *•> 

280  IF  x  < 1  OR  x  >4  TMEN  a«-aKun  1  -  4  ■>  taataa ■ : OOSUB  3000: GOTO  270 

290  ON  x  OOSUB  330,330,1090,1710 

300  MODE  lSa«-‘Tast  M  for  aanua: OOSUB  3000 

310  IF  x«-*M*  THEN  190  ELSE  STOP 

320  IF  x«-*Pa  THEN  h1-8 

330  IF  x«-aPa  TMEN  w2-8 

340  IF  x«-*P-  THEN  370  EL8E  360 

330  CL8: a«-- Tast  P)rlntar  -  8) k<raa : OOSUB  3000:00T0  320 
360  wl-l:w2-2 

370  CL8: WINDOW  40, 1 , 40, 19, 23: WINDOW  41 , 1 , 21 , 1 , 18: WINDOW  42, 23, 40, 1 , 18: WINDOW  43, 
1,40,23,23 

380  a«-*Tast  Irstal  (1733  -  2300)*: OOSUB  3030 

390  y-x:lF  y< 1 733  OR  y>2300  THEN  380 

400  a«-*Tast  a)nad  (1  -  12)*: OOSUB  3030 

410  *-x:IF  m< 1  OR  a>12  THEN  400 

420  OOSUB  3100 

430  CL8: CL6  4l:CL8  42 

440  OOSUB  3230 

430  LOCATE  42,1,1 

460  IF  h2-8  THEN  PRINT  48 

470  IF  w2-8  THEN  PRINT  48 

480  PRINT  4w2,  *F \ DSELSDAGE  M.V. • 

490  PRINT  4m2 
300  OOSUB  3380 

310  a«-*\nskas  ny  a)nad  ?  (j/n)*: OOSUB  3000 
320  IF  X«<  >aNa  THEN  400 

330  a«-a \nskas  nyt  >r  ?  (j/n)*: OOSUB  3000 
340  IF  x«OaNa  THEN  380  ELSE  190 

330  MODE  2:WIND0U  40, 1 , 80, 2, 21 : WINDOW  43,1,80,23,23 

360  a«--Tast  )rstal  (1733  -  2300) • : OOSUB  3030 

370  y-x:IF  y< 1733  OR  y>2300  THEN  360 

380  a«-'Tast  P)rlntar  -  S) k<raa : OOSUB  3000 

390  IF  z*-*P*  THEN  wO-8  ELSE  nO-O 

600  s«-’  »*  »SPACE« (24) ♦ *#* *SPACE« (24) ♦ -#* *SPACE« ( 24) ♦  •#* 

610  n« ( 1 ) ■ ■  *  JANUAR* *STR«(y)*a  «  FEBRUAR  * *STR«(y) ♦  »  « 

MARTS*  *STR«(y) #• 

620  nS(2) ■*  #  APRIL  * *STR«(y) ♦*  •  MA J  * ♦ S T R« ( y ) ♦ *  » 

JUNI **STR«(y) ♦  •  #• 

630  n«(3)-a  #  JULI ■♦STR«(yl #  AUOUST* *STR« (y) * 

SEPTEMBER  *  +STR« (y ) ♦ *  #• 

640  n*(4) ■*  #  OKTOBER*  *STR« (y) *  NOVEMBER* *8TR«Cy) ♦-  * 

DECEMBER* *STR«(y)*a  #■ 

630  c-l:x-l:CLS 

660  PRINT  4w0, *  * | STRING« (76, **a ) 

670  PRINT  4h0, s« 

680  PRINT  4w0,n*(c> 

690  PRINT  4h0, S« 

700  PRINT  4h0, *  *  MA  TI  ON  TO  FR  L\  8\  #  MA  TI  ON  TO  FR  L\  8N  #  MA  TI  ON  TO 

FR  L\  S\  ** 

710  PRINT  4h0, s« 

720  FOR  1-1  TO  6 
730  p«(i>-*  #  * 

740  NEXT  I 
730  v— 1 

760  FOR  a-x  TO  x*2 
770  OOSUB  3100 
780  * 

790  FOR  1-1  TO  a 

800  »•-»•♦* 

810  NEXT  1 

820  FOR  1-1  TO  n 

830  d«-RIOHT« (STR« ( I ) ,2) 

840  ■«-a«*d«* •  • 

830  a-a*l 

860  IF  NOT  a-INT (a/7) #7-0  TMEN  890 
870  p«(v)-p«(v) ♦■«♦*  «  • 

880  a-0: v-v*l :a«-*  • 

890  NEXT  1 

900  FOR  1-  a  TO  6 

910  a«-a«** 

920  NEXT  1 

930  p« (v)— p«(v) ♦ a« ♦ *  t  * 

940  IF  LEN ( p« (6) ) -3  THEN  p«(6) -p«(6) •SPACE«(23) ♦  -#  * 

930  IF  LEN ( p« (6) ) -28  THEN  p«(6) -p«(6) »8PACE«(23) ♦  *#  * 

960  V— 1 
970  NEXT  ■ 

980  FOR  1-1  TO  6 
990  PRINT  4w0,p«(l> 

1000  PRINT  FwO, s« 

1010  NEXT  1 

1020  PRINT  FwO, *  *  I STRINO« ( 76, *#* ) 

1030  a«-*\nskas  nyt  kvartal  ( j /n) ?*: OOSUB  3000 
1040  IF  x«-*J*  THEN  C-CM 
1030  IF  x«-*J*  THEN  x-x*3 

1060  IF  x-13  THEN  y-yalslF  x-13  TMEN  C-llIP  x-13  THEN  x-1 
1070  IF  x«-*J*  THEN  1080  ELSE  190 
1080  CLS:GOTO  660 

1090  MODE  i: WINDOW  40, 1 , 40, 1 , 24: WINDOW  43,1,40,23,23 

1100  INK  0,0:INK  1 , 26: INK  2, 12: INK  3,22:B0RDER  0:PAPER  0:PEN  1 

1110  LOCATE  1, ISLINE  INPUT  *Tast  navn  * | na« 

1120  LOCATE  1,3: INPUT  'Fldsalsdato  (ddaaaaaa)  •|#o« 

1130  da«-LEFT« ( *  o«, 2) : aa«-MID« <  ♦  o«, 3,2): aa«-RIOHT« ( 4o«, 4) 

1140  bd-VAL (da«) :ba-VAL(aa«) :by-VAL(aa«) 

1130  IF  bd< 1  OR  bd  >31  THEN  1120 
1160  IF  ba< 1  OR  ba>12  THEN  1120 

1170  LOCATE  1,3: INPUT  *Tast  startdato  ♦  or  blorytaan  (ddaaaaaa)  albi« 

1180  da*-LEFT«(bl«,2) : aa«-MID« (b 1 «, 3, 2) : aa«-RIOHT« (bl«, 4) 

1190  sd-VAL (da«) : sm-VAL (aa«) :sy-VAL (aa«) 

1200  IF  Sd< 1  OR  sd  >31  THEN  1170 
1210  IF  sa< 1  OR  s»>12  THEN  1170 
1220  IF  sy<by  THEN  1170 
1230  CLS 

1240  yr-by : »«-ba: dd-bd : OOSUB  1320 
1230  bx-x 

1260  yr-sy : aa-sa: dd-sd : OOSUB  1320 
1270  sx-x 

1280  xx-sx-bxM 

1290  pd-xx-INT ( xx/23) *23 


1300  sd-xx-INT (xx/28)#28 
1310  ♦d-xx-lNT (xx/33) #33 
1320  CLS 

1330  DEO: OR I GIN  0,100 
1340  FOR  n-0  TO  639 
1330  y-SIN ( n*pd#16) 

1360  PLOT  n#320/313,y#80,l 
1370  y-SIN(n*ad»16> 

1380  PLOT  n#320/237,y#80,2 
1390  y-SIN ( n«4d*16 ) 

1400  PLOT  n»320/218, y*80, 3 

1410  NEXT  n 

1420  HOVE  0,0 

1430  DRAW  640,0 

1440  HOVE  0,0 

1430  DRAW  O, 90: DRAW  0,-90 

1460  FOR  9-I6  TO  642  STEP  16 

1470  HOVE  9,-90 

1480  DRAW  9,90 

1490  NEXT  9 

1300  LOCATE  1,2: OOSUB  1600 
1310  END 
1320  ly-0 

1330  IF  INT  (yr /4)  #4-0  TMEN  ly— 1 

1340  IF  ly  AND  INT (yr / 100) 4100-yr  THEN  ly-0 

1330  IF  I  NT  ( y  r  /  400 )  #400-y  r  TMEN  ly— 1 

1360  x-INT ( 30. 37Saa) ♦  INT  ( 363. 23#yr-393. 23 >  *dd 

1370  IF  aa>2  AND  ly  TMEN  x-x-1 

1380  IF  aa>2  AND  NOT  (ly)  THEN  x-x-2 

1390  RETURN 

1600  PRINT  *  BIORYTME  ♦or  a | na« 

1610  PRINT:PRINT  aFldt  dan  *  I bd | * . * | ba| * . * | by 

1620  PRINT:PRINT  ‘Kurvan  startar  dan  a i sd | a . a | sal a . * | sy 

1690  WHILE  INKEY(47)  —  1SWEND 

1700  GOTO  190 

1710  MODE  2 

1720  LOCATE  1,3:PRINT  *TILF\ JELSER  00  ( NDRINOER  AF  NAVNEREOISTER* 

1730  PRINT : PRINT  *HUSK  at  sava  prograaaat  •♦tar  (ndrlngar  I  navnar ag  I  s tar at  a 
1740  PRINT 

1730  WHILE  INKEY (47)  —  1 : WEND 
1760  LIST  1780  -  2980 
1770  STOP 

1780  DATA  7,23, *Padar  Fa , 1930, 4, 4, a Ingar  Fa,1931 

1790  DATA  3,23, *Ing*Pad  B* , 1904, 6, 20, *Car la  Fa,1909 
1800  DATA  3,13,‘Banta  Fa , 1936, 1 , 10, *Bant*8va  B*,1983 
1810  DATA  9,10,-Lana  M  F* , 1934, 7,10, aLan*J I r  B*,1978 
1820  DATA  2,20, a J I rgan  M  F* , 1949, 4, 2, *Svand  Fa,1930 
1030  DATA  9, 18, a J  J  rgan  S  Fa , 1927, 3, 31 , aL 1  s  S  F",1930 
1840  DATA  1,21, -Ola  8  Fa , O, 3, 13, * Thua  Fa,1982 
1830  DATA  8,22,‘Nynna  F* , 1978, 3, 12, * Jaspar  F*,1904 

1060  DATA  3,28,‘Naya  Fa , 1960, 0, 30, *Oytta  F*,1936 

1070  DATA  12,6, -Ola  P  F" , 1933, 6, 8, -Jan  Rax  F-,1941 
1880  DATA  10,0, *Lan« Jan  B* , 1963, 9, 24, "Lana  R  F*,1941 
1890  DATA  7,8,*Dortha  R  Fa , 1969, 1 1 , 22, aVl ggo  F-,1929 

1900  DATA  12,8, *Anna*Vlg  B* , 1940, 3, 23, -Anna  F-,1931 

1910  DATA  3,7, -Asta  Fa ,0, 12, 1 , "Knud  S  Fa,1924 

1920  DATA  0,0,- . a,0 

2980  DATA  0,0,  - . a,0 

2990  STOP 

3000  PRINT  C HR« (7) 

3010  PRINT  43, a« 

3020  x«-UPPER« ( INKEY«) S IF  x«--*  THEN  3020 
3030  PRINT  43,  SPACE« (39) 

3040  RETURN 
3030  PRINT  CHR«(7) 

3060  PRINT  43, •« 

3070  INPUT  x 

3080  PRINT  43, SPACE« (39) 

3090  RETURN 

3100  a-y* 1*31« (a-1)* INT ( (y-1 ) /4) -INT (3*INT ( (y*99) /100) /4) 

3110  IF  a>2  THEN  a-y*l*31# (a-1 ) -INT ( (4#a*23) /10)* I NT (y/4) -34INT ( (INT(y/100)*l)/4 

> 

3120  a-a-INT (a/7) #7 
3130  IF  a-0  THEN  a-7 
3140  IF  a-1  THEN  a-8 
3130  a-a-2 

3160  IF  a— 2  GOTO  3200 
3170  n-31 

3180  IF  a-4  OR  a-6  OR  a-9  OR  a-11  THEN  n-30 
3190  GOTO  3220 
3200  n-28 

3210  IF  y-INT (y/4)#4-0  AND  NOT  y- INT <y/ 100) *100-0  OR  y- INT (y/400) »400-0  THEN  n-Z 
3220  RETURN 

3230  IF  a-1  THEN  PRINT  4wl , TAB(6) 1 'JANUAR* | y 
3240  IF  a-2  THEN  PRINT  4wl , TAB (6) I 'FEBRUAR* | y 
3230  IF  a-3  TMEN  PRINT  4wl , TAB ( 7) | ‘MARTS* | y 
3260  IF  a-4  TMEN  PRINT  4wl , TAB ( 7) I  * APRIL* I y 
3270  IF  a— S  TMEN  PRINT  Bwl , TAB (8) I *MAJ - | y 
3280  IF  a-6  THEN  PRINT  Bwl , TAB ( 8) I  *  JUNI  * | y 
3290  IF  a-7  THEN  PRINT  Bwl , TAB (0) I -JULI -y 
3300  IF  a-8  THEN  PRINT  Bwl , TAB ( 6) I  * AUOUST *  I y 
3310  IF  a-9  THEN  PRINT  Bwl , TAB (4) | ‘SEPTEMBER* | y 
3320  IF  a-1 O  THEN  PRINT  Bwl , TAB (3) I ‘OKTOBER* I y 
3330  IF  a-11  TMEN  PRINT  Bwl , TAB (3) I ‘NOVEMBER* | y 
3340  IF  a-1 2  THEN  PRINT  Bwl , TAB (3) I ‘DECEMBER* | y 
3330  PRINT  Bwl 

3360  PRINT  Bwl, *MA  TI  ON  TO  FR  L\  8\a 
3370  PRINT  Bwl 
3380  ■•-*• 

3390  FOR  1-1  TO  a 

3400  a«-a«*a 

3410  NEXT  I 

3420  FOR  1-1  TO  n 

3430  k«-STR«( | > s I«-RI0HT»(k«,2) 

3440  a«-a«* !•♦ *  • 

3430  a-a« 1 

3460  IF  NOT  a-INT (a/7>«7-0  THEN  3320 
3470  a-0 

3480  IF  LEN (a«) >20  TMEN  a«-LEFT« (a«, 20) 

3490  PRINT  Bwl.a« 

3300  PRINT  Bwl 
3310  —•••* 

3320  NEXT  I 
3330  FOR  1-a  TO  6 
3340  a«-a«*a 
3330  NEXT  1 
3360  PRINT  Bwl.a« 

3370  RETURN 

3380  FOR  1-1  TO  64 

3390  READ  aanad , dato, navna«, aar 

3600  IF  aanad-0  THEN  3670 

3610  IF  aanadOa  THEN  3660 

3620  d«-STR«(dato) : dS-R I GHTS ( dS, 2) 

3630  ♦a«-d«**.  •♦navna«**  * 

3640  aldar-y-aar 
3630  PRINT  Bw2, ♦a«! 

3633  PRINT  Bw2,  USING  *44*|aldar 
3660  NEXT  1 
3670  RESTORE 
3680  RETURN 
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Mr.  Brown 


■  Du  er  Mr.  brown.  der  har 
en  frygtelig  opgave  loran  sig. 
Du  skal  nemlig  igennem  tre 
livsfarlige  labyrinter  med 
elektriske  vægge,  og  masser 
af  farlige  uhyrer  der  er  para¬ 
te  til  at  fortære  dig. 

Du  starter  med  5  liv  som  ha¬ 


stigt  og  sikkert  nedtæller  un¬ 
dervejs  i  dette  Commodore 
64  spil.  Du  får  ekstra  liv.  hver 
gang  du  gennemfører  en  la¬ 
byrint.  og  styringen  foregår 
med  joystick  i  port  2.  altså  et 
rigtigt  arkadespil. □ 

Carsten  Andersen 
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10  PRI  NT"CCLR?  *•  :  POKE  53^00. 0:  POKE  53PB1 

.  « 

PØ  PRINT”CBUL,CRSR  NED4  .  CRSR  HØJRE7)  .  »  . 

30  PRINT^fRØD.CRSR  HØJRE7 J  I  I  I  I  I  I  II 

II  II  I  I  I  I  ” 
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100  GOSUB  5000 

110  PR I NT " C  CLR  ,  HU I D  ,  CRSR  HØJRE 13  5  I NSTRU 
KT I OM ” 

1PØ  PR I NT ” C RØD , CRSR  HØJRE  13) - 

130  PR I NT ” C  CYAN .  CRSR  NEDJUHELOIQE  MR  .  O 
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4  4  4  4” 

PR  I  MX”  C  CRSR  HØJRE  !  -*  4  4  4 

PR I MX” C CRSR  HØJRE ! 4  444 

4  4” 

PR I MX ” C  CRSR  HØJRE ! 4  4  4  4 

4  4’* 

PR  I  MX”  C  CRSR  HØJRE  !  -* 

•  •  4” 

PR I MX” C CRSR  HØJRE! 4  4 

M  U  I  Ht  I  I  I  I  4” 

PR I MX” C CRSR  HØJRE ! 4  * 

4” 

PR  I  MX  ”  CCRSR  HØJRE!-*-,  r-4—i  r 

4” 

PR  I  NT”  C  CRSR  HØJRE!-*-*-«  ,■♦♦!«  r4 

r4” 

PR I MT ” C  CRSR  HØJRE  >  *4444444  »4  ♦♦III« 
14  «  ♦  ♦  I  ♦  I  I  I  I  I  ♦  «  |  |  ” 

GOTO  1000 
A  —  A-*-l  :  D  —  D 1 

SI—  037  :  SE?—  1  OØ  :  U  1  —  130  :  UO  —  IIO  :  U3  — 70  r 
i  :  US— 1 O? :  UG  — GØ  :  U7— 1 GO  :  UO  — PØS 
US  —  030  :  UØ  — 73  :  Ml— OØ  :  ME?  — GØ 

PRIMT”CCLR! ” : POKE  53001 . 0 : POKE  53? 


OØ  1  0 

PR I MT ” C 

L  .  RØD 

.  CRSR  HØJRE!-*-*- 

*44  H  H  1 

pøpø 

PR I MT ” C 

CRSR 

HØJRE  1  4 
*4” 

t-” 

4-» 

PØ  30 

PR  I  MT  ’’  C 

CRSR 

HØJRE  1  4 
4” 

4 

0040 

PR I MX ” C CRSR 
44 

HØJRE  !  4 
4” 

4 

PØSØ 

PR I MX ” C CRSR 

HØJRE  1  4 

4 

PØGØ 

0070 

OØOØ 

OØSØ 

* 

PI  00 

PI  1  0 

PI  PØ 
4 

PI  30 
4 

P1 10 
4 

PI  SØ 
4 

PI  GØ 
4 

PI  70 
PI  OØ 
PISØ 


PR I MX ” C  CRSR  HØJRE  ! 4 
4  44  4” 

PR I MT »  CCRSR  HØJRE  ! 4 

PR I MX” C CRSR  HØJRE! 4 

PR I MX ” C  CRSR  HØJRE ! 4 

PR I MX ” C  CRSR  HØJRE ! 4 
4  44  4” 

PR I MT ” C  CRSR  HØJRE  1 4 
44  4  4” 

PR I MT ” CCRSR  HØJRE ! 4 

III  |  »» 

PRINT” CCRSR  HØJRE  14 

PR  X  MX ” C  CRSR  HØJRE  14 

PR  X  MX  ” C  CRSR  HØJRE  1 4 


PR I MX ” CCRSR  HØJRE  14 

4-444-44  4*  4” 

PR I MX ” C  CRSR  HØJRE  14 
PRINT” CCRSR  HØJ  RE  1 4 
PRINT ”<CRSR  HØJ  RE  1 4 


4”  ;  D”H 
4L  I  04 


PPØØ  PRINT” CCRSR  HØJRE 14 


?P30 

?P10 


PR I MT ” C  CRSR  HØJRE 1 4 
4” 

PR I MX ” C  CRSR  HØJRE 1 4 
4” 

PR  I  MX  •’  C  CRSR  HØJRE  1  4-, 

»4” 

PRINT  "CCRSR  HØJRE!-*-*- 


00X0  1000 

A  — A-*-  1  :  D  —  D 1 

SI  — 155  :  SP  — GØ  :  U 1 — 1 G  :  UP— ISO  :  U3  — PPS  :  I 
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^"1B3 : U5-B3B : UB-104 ; U7-P07 : UB-64 
PS70  U3  — 133  :  UØ-1  ØH  :  Ml-1  14  :  MP-5H 
3000  PRINT"CCLR)":PDKE  E.3P01 . 0  z  POKE 
BØ  .  0 

3øxø  print* 


CCYftN.CRSR  HØJRES¬ 


SØPØ  PRINT"CCRSR  HØJRES-*- 

3030  PRINT-CCRSR  HØJRE  5  -4- 
-4-4- 

30*40  PR  I  MT  *’  C  CRSR  HØJRE  5-4- 
-4-  -f  ■+” 

3050  PRINT-CCRSR  HØJRE  5  -#- 

♦-4-  -I- 

3050  PRINT-CCRSR  HØJRE  S  -4- 
*-  -4-1-  -4-  -4-” 

30-70  PRINT-CCRSR  HØJRE  Z>  4  + 

3050  PRINT-CCRSR  HØJRE  5  44  | 

30SØ  PRINT-CCRSR  HØJRES-#—*-« 
+”;D”-f  -4-  -4-” 

3100  PRINT-CCRSR  HØJRE  S  -4—4-4 


*4— *-L  I  kJ  — | — *-  -4-4- 

3XXØ  PRINT-CCRSR 

31  PØ 

PR I NT  - C  CRSR 

3X30 

PR I NT - C CRSR 

*  >  *  1  1  -1 

3  1  HØ 

PR I NT ” C CRSR 

3X50 

PR I NT - C  CRSR 

3X60 

PR I NT ” C  CRSR 

3170 

PR I NT - C  CRSR 

31  BØ 

PR I NT ” C CRSR 

3  X  SØ 

PR I NT - C CRSR 

3PØØ 

PR I NT - C  CRSR 

3P1  0 

PR I NT  - C CRSR 

3Sæø  PRINT-CCRSR  HØJRES- 

-4-" 

3230  PRINT-CCRSR  HØJRE  S  - 

r4-” 

3240  PRINT-CCRSR 


10  JRE  S  - 


3BSØ  GOTO  HØØØ 

*4000  X  —  HØ  :  Y  —  50  :  POKE  kJ-*  30 , 0  POKE  U»31 . 0  ; 
POKE  U,  X  :  POKE  kJ^l  .  V  :  GG3UB  4B10 

HØXØ  POKE  U  +  B.Sl  «  POKE  U*3. 3P :  POKE  W^H  ,  U 

1 : POKE  y>5,Ue:POKE  U»B.U3: PUKK  . U4 

HØPØ  POKE  U*H,U5:  POKE  U*S,U6:PQKE  O-*-  X  0  . 

U7 : POKE  U+XX.UB: POKE  U+ie,U3 
: POKE  O* 1 3 , UØ 

H 0 30  POKE  U>XH  ,  Ml  :  POKE  U*15,nS:PDKE  U«-B 
9.B5B:  POKE  U»BH  ,  B55  :  POKE  kJ  *-37  .  1  H 
: POKE  U»3H, 3 
HØHØ  POKE  O^Bl . 3 

HØSØ  POKE  U,Z:K-K+l! IF  K— PØ  THEN  QOSUB 

5PØØ  :  POKE  O+P  X  .  PfS*-3 

HØSØ  JM— X5— CPEEKC  563PØ  S  BND  1 5  S 
H070  I E  JM-0  THEN  HIPØ 

HØHØ  POKE  SHPSB . 15 : POKE  5HPB3 . 1PS . POKE 
5HPHH  .  15  z  POKE  5HPQØ  .  HØ  :  POKE  SHP7S . PØØ 
HØSØ  POKE  SHPB3 . 1PO : POKE  SHPOH . 0 

*4  X  PØ  I  E  JM—  1  THEN  Y-Y-4 

*4  1  30  I  F  JM  — P  THEN  Y-Y  +  4 

HXHØ  I E  JM— O  THEN  X— X^H 

HISØ  I E  JM— H  THEN  X— X— H 

HX50  I E  JM  — S  THEN  X— X— 3 z  V  — Y  — 3 

4X70  I F  JM  —  5  THEN  X  — X  — 3z  Y-Y  +  3 

H  1  BØ  I  E  JM  — S  THEN  X  — X*-3  z  Y  —  Y  —  3 

H  X  SØ  I  E  JM— 10  THEN  X  — X-*-3;  Y  — Y-*-3 
HPØØ  QOSUB  HP  X  0  z  GOTO  HØSØ 


u*16'z/æBi,r 

4ee®  1  •=“  i ■  i: i:  k  c  s  i ;■  x  u  3  -  :j  tuen  i'itra 

4230  1  F  F*EEK:CS3e-70  3>3  THEM  1300 

EEEK C 53^733-1  THEM  1300 
1 7*  >  G  RETURN 

.  I  ei  =  EUKE  54B7E»B  .  till  =  Bo 

3313  HCJKE  5*4S7a-  1,1:  I  *  t )  KC  E  S1B7B-1 . 1  SS 

U|-<a  T>3  S3;POKE  S3BG  1.3:  BGKE  5 3 

‘4r?É?‘a  POKE  ■»  l.VHl  .  3‘jL,  =  POKE  53EQØ  .  G  =  M EX T  U) 
=  fOEE  54E7E.1 . 1  £?B  :  POKE  U-S1.3 
4340  Q  — O— 1;1E  n>  — d  THEM  5533 
4350  OM  O  GOTO  1333.3333  3333 

**133  B-B-l=BOKE  0-31.3 
1113  OM  B  GOTO  1353.3553  5533 

5333  0-5331B : HOKE  3313 . 1 3 = POKE  3311.11= 

.  J--E31B  TO  204'  =  POKE  L  ,  15  :  MEXT  L 
MEXT°M  O- G  TD  53 : REBO  O = POKE  333— M .Os 

ME??”nFDH  l-‘-0>  to  GEsREBD  P  s  POKE  B3S-M  .  P  s 

NEXT<Z,NFOR  N~‘°  TO  53  s  REBO  E  s  POKE  353— N  ,  E  s 

s5S?DsMEX?  0-33 .  13  FOR  0-1  TO  7  s  POKE  0-3 
5353  RETURN 

5353  OBTB  3.3.3.3.3.3.3.31.3.3. 137  51  1 

. es5 . aøB , 1 . 255 , 20B  S  331  313  7  pil  iSi 

5“?“  Z  ■  f  f  S  .  311  ;  7 . 351 . 311  :  7  .  låf  “133 

•  r?i*Z4  •  17B  •  3  •  334  .  eiø  .  0 . 255 . 133 . 3 , 53 . 3 

G  ’d  d  ø°ønø0  .  »T  .  3 . 3  .  Bl  .  51 . 3  .  Bl  .  51 .3.3.3. 

DBTB  3 . 355 . 133.3.3.51.3. 355 . 51 . 3 . 3 
•  B4  •  *  .  255 . 61 . 3 . 355 . 61 . 3 . 355 . 61 
5133  OB TB  S . 355 . 51 . 3 . 355 . 61 . 3 . 3 , 61 . 3  33 

*  ■  ‘'4  -  '  .  0  .  Bl  .  2 . 355 . 61 . 3 . 355 . 61 . 3 . 355 . 61 
B310  OBTB  B  .  355 . 51 . 3 . 355 . 61 . 3 . 355 . 61 . 3 

2SS . 61 .3.3.61.3. 355 .133 

512B  OBTB  0.3.3.3.3.3.13.3.133,3.3  3  3 

331 . 3 . 3 . 163 . 3 . 3 . 173 . 3 . 3 . 333 . 3 . 6 . 338  61  ' 

5 1 13  OBTB  73,173.60,73. 1BB.BB.HB.170  31 
.  B  .  2SH  .  BH  ,  P  ,  P05 . 0  .  P  .  PSH  .  0  P  1  *70  0 

01000Dr,Tn  ®  *  1GQ  •  0 . 0  .  PØH  ,Ø.X.  59  |  0  .  X  .  59 . 0 

SPØØ  S—  I  NT  C  B-RNO  C  X  S  S  *-p  :  K  —  0  RETURN 
B?S0®  PR*NT»CCLR)  -  :  POKE  S3PBØ  .  0  z  PDKE  S3P 

,®S10  PRINT  ”CI_  .  BL  HH  .CRSR  NEDP  .  CRSR  HØJRE 
15SQ«ME  OUER — 

^SSPøjPR I NT ” C  CRSR  NED.  CRSR  HØJRE13SNYT  S 

SM®  °ET  r,*:  IF  - - THEN  5530 

SSHØ  I F  n*-"J-THEN  GOTO  5570 

- N-THEN  PR  I  NT  ”  C  L  I  LLH  .  CRSR  NE 

OP . CRSR  HØJRE3SDET  ER  DO  I  ORDEN  —  HOO 
STOPPER  UI  '• 

555« 

R I NT - C  CL  R S  -  x  END 

5 70  POKE  U«-P1 .0:  POKE  U*P3 . 0  :  RIJN 
5500  PR I NT - C  CL R S  - 

5510  POR  0—5  TO  1 5  STEP  P : POKE  0*0.130 
NEXT  O  z  POR  H  — H  TO  1 H  STEP  P 

:  POKE  kJ-*-M  .  PØ»H—  PS  z  NEXT  H 


5550  POR  I  — 0  TO  5000  :  NEXT  :  POKE  »J-*-P  1.0:  P 

I  NT  **  C  CL R  S  -  x  END 

SS70  POKE  U*P1 . 0  :  POKE  U*P3 .  0  z  RIJN 
5500  PR I NT " C  CL R  S  - 

5610  POR  0  —  5  TO  15  STEP  P  :  POKE  kJ-^O  .  1  30  - 

EXT  O  z  POR  H  — H  TO  1 H  STEP  P 

:  POKE  kJ-*-M  .  PØ  — H—  PS  :  NEXT  H 
55PØ  POKE  O  .  X  55  r  POKE  kJ-*- X  ,  50  :  POKE  U*P3  .  X 
* POKE  U*P9,P53:POKE  U+Pl , P53 
5530  PR I NT - C L . RØD . CRSR  NEDS , CRSR  HØJRES 
5TILLYKKE  —  MR .  BROUN  ER  REDDET - 
55HØ  PRINT**  CCYBN,  CRSR  NEDP  .  CRSR  HØJREPS 

5650  PRINT-CCRSR  HØJREPS | 

5660  PRINT-CCRSR  HØ JREP X | 

5570  PRINT-CCRSR  HØ JREP ) | 

56BØ  PRINT”CCRSR  HØ  JREP  5  *~ - 


5690  POR  I — 0  TO  3000 ; NEXT z BOTO  55X0 
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Samler  du  på  programmer 

Så  kan  du  ikke  undvære  SOFT.  Danmarks  eneste,  rigtige  softwaremagasin. 
Hver  anden  måned  finder  du  store  og  små  programlistninger  til  alle  markedets 
kendte  computere  -  fra  ZX-81  over  Commodore  64  til  IBM  PC. 


SOFT’  spilredaktion  er  også  på  færde  i 
hvert  nummer.  Læs  om  de  nyeste  og  bedste 
computerspil  til  netop  din  datamat. 


Det  næste  nummer 
til  samlingen 

udkommer  den  24.  oktober 


inusU 


‘»FT,Sk 


vindere! 


De  10  heldige  vindere  al  vo¬ 
res  James  Bond  konkurrence 
fra  sidste  nummer  er  nu  lun¬ 
det. 

Det  tog  en  grum  tid  at  gen¬ 
nemgå  alle  de  indsendte  ku¬ 
poner  og  vi  er  helt  overvæl¬ 
det  over  den  respons  konkur¬ 
rencen  har  givet. 

Vi  har  desuden  fundet  ud  at 
at  antallet  af  James  Bond  film 
ikke  som  opgivet  er  enten  8. 
10.  14  eller  24.  men  snarere 
1 6  .  Vi  har  dog  godkendt  alle 
som  har  svaret  1 4  ved  spørgs¬ 
målet. 


Vinderne  al  "A  View  to  a 
Klll"  spillene  er: 


Lars  Ulsø 
Bjørnøvænget  44 
8381  Mundelstrup 
Commodore  64 

Johnny  Jørgensen 
Gladsaxeve]  164 
2860  Søborg 
Commodore  64 

Jonas  Krat 

Blnderup  Strandvej  33 
6091  Bjert 
Commodore  64 

Martin  Eriksen 
Holme  vej  29,  Annisse 
3200  Helsinge 
Amstrad 

Jess  Nielsen 
Bryggerlve)  14 
9460  Brovst 
Commodore  64 


Birger  Clausen 
GI.  Abenråvej  15 
6400  Sønderborg 
Commodore  64 

Karl  Vinther 
Vinkel  vej  18 
8870  Langå 
Spectrum 

Jesper  Enager 
Trommeslagervej  21 
4660  Store  Heddinge 
Commodore  64 

Jan  Schack  Andersen 
Nybogade  5 
8700  Horsens 
Commodore  64 

Henrik  Skifter  Nielsen 
Tombjerg  31 
8732  Hovedgård 
Commodore  64 


James  Bond 


Vi  mangler  COMMODORE  64 
programmer 

Har  du  lavet  nogle  gode 
programmer,  og  kunne  du 
tænke  dig  at  tjene  nogle  hur¬ 
tige  kroner?  Så  send  dem 
straks  ind  t il  SOFT  SPECIAL. 
Vi  kan  tilbyde  skattefrie  ho¬ 
norarer,  helt  op  til  1000  kro¬ 
ner. 

Send  dit  superprogram  til: 
SOFT  SPECIAL 
St.  Kongensgade  72 
1264  København  K. 


Glæd  dig  til  den 


19.  december. 


Næste  nummer  bliver  vores  store  lødselsdagsnummer 
Kæmpesektion  med  test  af  de  hotteste  spil  fra  England. 
Større  og  tydeligere  ud  listninger  til  alle  computere. 


Gigantudvidelse  al  Commotor«  64  og  Amstrad  programmerne.  Hvad  siger  du  til  en  Amstrad  assembler? 
TU  64'eren  kan  vi  tilbyde  et  supergodt  tipsprogram. 

VI  har  selvlølgeUg  også  en  spændende  artikel,  der  hovedsageUg  drejer  sig  om  SOFT(ware). 


gjØti  53 


::-A 
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■  Her  er  et  program  til  en 
uudvidet  VIC-20,  der  hjælper 
dig  med  at  definere  dine 
egne  karakterer.  Mens  du 
tegner  kan  resultatet  ses  på 
en  karakter  ved  siden  at.  Når 
brugeren  omsider  er  helt  til¬ 
freds.  kan  karakterens  data 
fremtrylles  ved  et  tryk  på  F7 .  ■ 


Kim  Beig  Hansen 


V\ 


HCT 

HamChi  Thoysen 


3  PRINT"m»!iSBW«S  VENT  LIDT 

5  P0KE52 , 28 : P0KE56 , 28 : F0RA=7 1 68T07679 • POKER . PEEK < fl+25600 >  NEXT : P0KE36869 • 255 

6  F0RR=7448T07455 : POKER • 255 = NEXT • P0KE36879, 25 : POK E650 , 1 28 


i 


SIDEN  RF.  KRN 
MTASTER  DU  F7. 
KRRHKTEREP. 


10  PR I NT "TE  KRRRKTER  DEFINER!  N  G" 

2ø  PR  I  NT  "mi  STVRER  CURSOREN  RUNDT  PRR  ET  FELT  PRR  8*8  PRIKKER  V.H.ft.  " 

30  PR I NT " TR3TEPNE :  P  L  : 

40  PRINT "DU  SKIFTER  MELLEM  TEGNE/SLETTE  V.H.fl.  Fl" 

5ø  PR I NT "PRR  KRRRKTEREN  VED  SIDEN  RF .  KRN  DU  FøLGEMED  I  TEGNERRBE JDET " 

6ø  PRINT"  I  LILLE  FORMAT.  fJTASTER  DU  F7,  FRRP  DU  DE  TRL  DER  SKAL  TIL" 

7ø  PRINT "FOR  RT  DEFINERE  DIN  KARAKTERER.  «  •  TRVK  EN  TAST"; 

t  øø  I FPEEK < 1 97 ) =64 THEN 1 øø 
1 06  F0RA=7 1 68 TO? \ 75 : POKEA , O : NEXT : PR I NT "  H" 

1 20  F0Rfl= 1 TOS : F0RB= 1  TOS • P0KEA*22+B+7657 . 46 : P0KER*22+B+38377 , O : NEXT • NEXT  A=4 : B=4 : 
I>-,1 

1 30  P0KEA*22+B+7657 .35- I FC=- 1 THENP0KEA*22+B+765? • 46 
14ø  PQKEfi*22+B+ 38377 > O : GETAf  IFR$="»"THENC=-C 
150  I  FA$= "  II"  THEN  1  ?ø 

160  A=A+ ( Af = " P " ) - < At= " . "> :B=B+<A*="L">-<R*="  "> :R=A+<R=« )-<H=0> : B=B+<B=9WB=0)l 
GOT  0 1 90 

1  7ø  PR  I  NT  "  cr-IcOTcIcWcIcWrt" 

1 8ø  F0RA=  1  TOS  :  C=ø  •  F  0RB=  1  TOS :  C=C-  <  PEEK RS22+B+7657  >-35  >  >2 1<  3-B  •  :  NEXT  '  PR  I NTC  NEXT 

184  PRINT"«  TRVK  EN  TAST" i 

1 85  I FPEEK < 1 97 >  =64 THEN 1 85 

186  GuTOl  06 

1 9ø  i  FC=  1 THENP0KE7 1 67+A .  PFEK<  7 1 67+A > 0R2 T<  8-B>  /''7,'Vrl 

1 95  I FC=- 1 THENP0KE7 1 67+A  .  PFEK C  7 1  67+h  )  AND < 255-2  T< S-B  :•  > 


NEXT : PR I NTC  NEXT 


20ø  PR  T  NT  "  afsTsTsTsWiTiTiTiTiTPl«*!«? 17 :  GOT  1 1 1 
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Har  du  set  lyset? 


Så  har  du  også  hobt  COMputer  nr,  2 

-  og  allerede  læst:  Alt  om  Amigo  -  Commodores  nye  super¬ 
computer.  Sådan  sætter  du  hukommelsen  på  armen  -  Super  Seiko 
64.  Indenbords  i  128'eren.  Spændende  rapport  fra  PCW  Show  i 
London.  Modem  -  sådan  kommunikerer  din  Commodore.  Stortest  af 
5  printere.  Rapport  fra  en  computer-camp,  samt  anmeldelser  af 
både  soft  og  hardware.  Nyeste  tips  til  CI6-Plus/4  samt  64'eren. 

Samt  meget  meget  mere.  Fås  nu  i  kioskerne.  Pris  kr.  29.85. 


COMputer  -  for  DIG  og  din  COMMODORE 


